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EDITORIAL 


L'été, quelle belle saison... Bien sûr, on oublie un peu nos claviers pour profiter des journées 
plus longues, du soleil et des ballades. Pourtant, comment ne pas penser à la rentrée... Quel¬ 
les seront les nouveautés ? Sur ORIC, les surprises sont hélas peu nombreuses et, si le TELE- 
STRAT et son HYPER BASIC ne sont pas disponibles en septembre, gageons qu'il en sera 
commercialement fini de cette machine qui fut tant attendue. 

THEORIC invite ses lecteurs à participer à la grande enquête qui devrait nous aider à rendre 
la revue encore plus intéressante. Répondez en masse, sans négliger aucune question, en 
profitant d'une journée pluvieuse ou d'un soir d'orage. 

Nous attendons vos réponses avant le 30 septembre. 
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• Une //gne fé/ép/ion/que esf à votre d/spos/f/on, vous met- 
* tant en contact direct avec la rédaction. Ceci est un ser¬ 


vice sans égal I Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé ; 
dépensez pas inutilement votre argent ! 


Le numéro 


99.52.98.11. 
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REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 


SYNTHEVOC 1 


K> 


I 


'Il ne lui manque que la parole", synihé. VOCI la lui donne I 
Très perlormant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campapne I 
□ synthétiseur vocal. 


5S0 F 



MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il 'discute' 
avec ses semblables et accède au réseau'miniter 
Fourni avec interface intégrée et logiciel 
□ modem. 1490 F 



Interface tous jeux 
Grâce à cet interface programmable vous ulili- 
seret vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux 360 F 


Rellongo Périlel 
Ne soyez plus 'collé' à l'écran ! 


□ rallonge 


m 


V 


Interrupteur 
No courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 





Imprimante CITIZEN 1200 

120 CPS - matrice 9x9- traction ou friction - jusqu'à 
3 ex. compatible E6S0N ■ garantie 2 ans • interface cen- 
tronic intégrée. 

Particulièremont bien adaptée à l'Amstrad cette imprimante 
vous donnera toutes satisfactions! Compatible avec la plu¬ 
part des logiciels de copie d'écran du commerce elle accepte 
également les caractères graphiques. 

□ imprimante CITIZEN 120 0 . 3290 F 


Magnétophone 
Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis 
Entrée DIN ou Jack. Niveau réglable Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone 360 F 



# 


l'ensemble 
3490 F 


JASMIN 2 

Le lecteur de disqueiia que votre Oric préfère. 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette. 

□ lecieurdoubletête 2.490 F 



PROMOTION : dans la liste ci-dessous 
Logiciels pour ORIC 1 exclusivement 


□ pengoric 

□ facturation 

□ finances 

□ calculus 


□ caractor 

□ jogger 

□ gencar 

□ guerre des couleurs 


□ 2 titres 

□ 3 titres 

□ 4 titres 

□ 5 titres 

□ 10 titres 
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□ zig-zag 


145F 
195 F 
220 F 
.250F 
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□ insect insanity. 95 F 
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□ tendre poulet.120 F 

□ nessy. 95 F 

□ cobra. 140 F 

□ damsel in distress 


. 105F 


LOGICIELS CASSEHES 

□ cheops.140 F 
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□ cité maudite (la).140 F 

□ clavidact.115 F 

□ damac (jeu de dames) 100 F 

□ elephorm.100 F 

□ elephcolor.100 F 

□ dialogue .120 F 

□ cobra pinball.140 F 

□ colorie. 95 F 

(□ compilateur graphique 250 F 

□ concours hippique ... 70F 

□ conjugaison .120F 

□ course lettre. 95 F 

□ crypt show .100 F 

□ Obug .140 F 


□ frigaie commander . 

. 100F 

□ détective. 

. 149 

□ gubbie. 

. 100 F 

□ diamant île maudite. 

. 160 

□ le dernier métro .... 

. 150F 

□ donjuan . 

. 150 

□ ordidactic . 

.250 F 

□ durendal . 

1711 

G 3 0 0X0 BG. 

. 100 F 

□ élysée . 

. 145 

G xénon 1 . 

. 100 F 

□ lira flash. 

.120 

□ starter 3 D. 

.130F 

□ flula inca (la) . 

. 120 

□ formule 1. 

130 F 

□ frelon. 

. 120 

□ dossier "G". 

.140 F 

□ fromage. 

95 

□ assimll (espagnol) .. 

.499 F 

□ galaxion. 

. 9b 

□ basic étendu. 

.140 F 

□ ghost gobbler . 

lUU 

□ dédal. 

.120 F 

□ godilloric. 

. 9U 

□ image. 

.125 F 

□ gravHor . 

. 9U 

□ lone raider. 

.105 F 

CD green cross toad. 

. 1UU 

□ titan. 

.130F 

G hades . 

.250 
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. 160 F 

□ hobbit (the). 
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. 140F 
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. 70 
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□ meutre à gde vitesse 

.180 

G Y catégorie. 

. 95 F 

□ microciel. 

. 120 

□ challenger. 

. 130F 

□ microgéo. 

. 140 


LIVRES 

□ guide pratique 

□ découverte de l'oric 

□ oric à l'affiche. 

□ oric atmos pour tous 

□ 52 prog. pour tous . . 

□ Tassembleur de Tatmos 

□ interfaces pour oric 

□ Toric à nu 

□ programmes en lang. mach. . 

□ manuel référence • tome 1 

□ manuel référence • tome 2 


□ millionnaire (le) .120 F 

□ mission delta . 95 F 

□ mission impossible... 120 F 

□ monopolic.160 F 

□ montségur.140 F 

□ dialogue.120 F 

□ mots croisés.120 F 

□ multicatc.190 F 

□ mushroom maniac ... 100 F 

□ optimum .140 F 

□ ordi-tiercé.140 F 

□ oric miner.135 F 

□ oric miner.135 F 

□ panic. 95 F 

□ planelte bleue .120 F 

□ playground . 95 F 

□ polyftehier.160 F 

□ probe 3.100 F 

□ rabbil . 65 F 

□ rat splat .105 F 

□ rd v de la terreur .... 95 F 

□ retour du dr genius .. 160 F 

□ revers! . 95 F 

□ reverse . 90 F 

□ s.a.g.a.150 F 

□ secret du tombeau (le) 140 F 

ED Stanley .120 F 

□ star .120 F 

□ stress .120 F 

□ styx .120F 

□ super copy écran .... 120 F 

□ super jeep .120 F 

□ terminus . i20 F 

□ tic lac .120 F 

□ tortue logic.150 F 

□ tour fantastique (la).. 120 F 

□ tour du monda en 80 120 F 

□ transatone .140F 

□ trésor du pirate (le)... 95 F 

□ triathlon .150 F 

Cjtyrann .185 F 

□ vision.120 F 

□ vortex . 260 F 

□ World war 3.100 F 

□ xénon 3.105 F 

□ yiking (le).180 F 

□ zoolympics .120 F 

□ zorgons revenge.100 F 


LOGICIELS DISQUETTE (JASMIN) 


78.50 F 

□ assembleur 


490 

95 F 

□ easy text 


590 

., 95F 

□ muliilich 


590 

105 F 

□ cale 


590 

. 105F 

□ lorlh . 


.590 

95 F 

□ jasmitel 


490 

59 F 

□ mathégraph 


249 

150 F 

□ finances 


219 

95 F 

□ conquérants 


219 

138 F 
120 F 

□ zonga. 

. . 2. . . 

.199 


Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC i 
□ imprimante MCP 40 . .990 F 


Cassettes vierges C20 '—F— 

□ les 5. 45 F 

□ les 10. 80 F 

□ disquette vierge 3 pouces. 35 F 


Câble Imprimante 

Vous permet de connecter votre Oric è n'importe 
quelle imprimante au standard 'canironic' 
(□câble imprimante 160F 

Câble Moniteur 

Pour brancher votre Oric â un moniteur mono¬ 
chrome 

□ câble moniteur 96 f 



□ moniteur monoch. sonore 995 F 



L’IMPRIMANTE PERSONNELLE 
COULEUR "OKIMATE 20' 
L'OKIMATE 20 est la première imprimante per¬ 
sonnelle dans sa gamme de prix è offrir une 
véritable impression couleur. Une tète d'impres¬ 
sion è 24 élémentscrée plus de 100 nuances d'une 
définition et d'une netteté exceptionnelles. 
Interface centronic 

□ okimaie 20 . 2950 F 




TIRVITT 2 

Esthétique, robuste, pratique le TIRVITT 2 vous séduira I 
Contacts par micro-switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVinZ.150 F 



□ joystick compéthion PRO 5000 . 

.195 

□ bloc alira. ORIC. 

.160 

□ aitm. 12 V pour périiel. 

. 75 

□ stylos pour MCP 40 (les 4) . 

. 49 

□ rouleaux papier MCP 40 (par 2) . 

. 60 

□ rallong de bus 1 slol . 

.110 



Le 'rnust' pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
'top niveau' des résultats obtenus, (ex. options ; fairt 
des poims. traits, boites, cercles, text e. remplir. 'zoom*..J 
□ GRAPHISCOPE II. 1490 F 


COMMENT COMMANDER : JepossMe; DOBICl DATMOS 

- Cocher tels) anidetsl désirhts) ou fai1e$-en une liste sur une feuille à part - Faites le total + frais de port |20 F pour achats inférieurs é SOO F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F). 


NOM : _ 

ADRESSE : 


PRENOM ;. 


TEL :- 

CODE POSTAL : 


. VILLE 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de trais) 
envoyer le tout à : ORDIVIDUEL 20. rue de Montreuil 943CX) VINCENNES 


réseau 





















































































































































































GRANDE ENQUETE LECTEURS 

P ourquoi une enquête auprès de nos lecteurs ? 

Tout simplement pour tenter de les servir toujours mieux, en adaptant le contenu de la revue à 
leurs désirs. 

Nous vous engageons à répondre massivement à ce questionnaire tout en conservant, si vous le désirez, 
l'anonymat. Par contre, comme nous envisageons de tirer au sort 10 grilles-réponse et de récompenser 
leurs expéditeurs par un lot. ceux qui désirent participer au jeu devront obligatoirement décliner leur identité. 

Un super-lot sera attribué au lecteur qui donnera le nombre exact de réponses parvenues à la rédaction 
avant le 15 septembre 1986 à minuit. 

Répondez avec un maximum de précision à nos questions : le contenu des prochains THEORIC en dér>end. 

A renvoyer le plus rapidement à : Editions SORACOM Enquête lecteurs THEORIC 

La Haie de Pan 35170 BRUZ 

Dernier délai pour répondre : le 30/09/86. 



LECTEUR 

Votre tranche d'âge 

moins de 16 ans 
16 à 30 ans 
30 à 50 ans 
+ de 50 ans 

Votre activité professionnelle 
étudiant 

métier informatique 
métier non informatique 

Temps d'utilisation de la machine (nombre d'heures par mois) 
moins de 5 heures □ 

5 à 10 heures □ 

10 à 25 heures □ 

25 à 50 heures □ 

plus de 50 heures □ 

Quand avez-vous acheté votre premier ORIC 7 

11 y a plus de 2 ans □ 

il y a plus d'un an □ 

dans les 12 derniers mois □ 

Comment avez-vous acheté votre ORIC ? 

par correspondance □ 

chez un revendeur local □ 

Etes-vous satisfait des services ? oui non 

du revendeur □ □ 

du S.A.V. □ □ 

Nombre de pannes subies par votre machine : 

Quel matériel utilisez-vous ? 

ORIC-1 
ATMOS 
JASMIN 
MICRODISC 
IMPRIMANTE 

Extensions diverses. 

Quel sera votre prochain périphérique 7. 

Si vous envisagez de changer de matériel, quel sera votre 
choix 7 

TELESTRAT □ 

Autre ordinateur familial (marque 7). 

Ordinateur personnel compatible IBM. 



Si vous n'êtes pas abonné, trouvez-vous facilement THEORIC 
en kiosque 7 .Votre région 7 . 

Combien d'exemplaires de la revue y a-t-il chez votre détaillant 7 

1 seul □ 

2 à 5 □ 

plus de 5 □ 


LES SERVICES DE LA REVUE 

Avez-vous déjà téléphoné à la rédaction de la revue (mercredi 
ou vendredi) 7 oui □ non □ 


Vos remarques . 

Avez-vous déjà utilisé le service courrier 7 


oui □ non □ 


Vos remarques . 

Etes-vous satisfait du service disquettes de THEORIC 7 

oui □ non □ 

Vos remarques . 

Le nouveau prix de THEORIC (25 F) vous satisfait-il 7 

oui □ non □ 

Accepteriez-vous que THEORIC soit marié à une revue traitant 
d'un (ou plusieurs) autre(s) ordinateurs(s) 7 oui □ non □ 
Si non, comment voudriez-vous voir modifié l'équilibre de la 
revue, tout en conservant le même nombre de pages, 
davantage d'articles rédactionnels □ 

davantages d'utilitaires □ 

davantage de jeux □ 

création de nouvelles rubriques (lesquelles 7 ) □ 


Vos remarques personnelles en quelques lignes 


LA REVUE THEORIC 

Depuis quand lisez-vous THEORIC (quel numéro) 7 


Etes vous abonné 7 
Etes vous lecteur permanent 7 


oui □ 


non □ 

□ 

Etes vous lecteur occasionnel 7 - □ 

Combien de personnes lisent votre numéro de THEORIC ? 

Si vous êtes abonné, date moyenne de réception de la revue 
ces 3 derniers mois.Votre région. 


FACULTATIF 

Nom : .Prénom 

Adresse :. 

Ville ;. 


Jeu : Combien de réponses à l'enquête aurons nous reçu en 
date du 15/09/86 7 





























courrier. 


COURRIER 

Pour obtenir une réponse au 
courrier, il est indispensable de ne 
poser que 3 questions par lettre, 
au maximum, de joindre le cou¬ 
pon "courrier" découpé dans la 
revue et une enveloppe affran¬ 
chie self-adressée pour la 
réponse. Ces deux dernières pré¬ 
cautions ne sont pas indispensa¬ 
bles si vous êtes abonné ; par 
contre, il faut nous joindre, dans 
ce cas, l'étiquette informatique 
qui vous parvient, chaque mois, 
avec la revue. 

Nous ne répondons pas au cour¬ 
rier ne remplissant pas toutes ces 
conditions. 


J. MARTIN 
60 GOUVIEUX 

Possesseur du Microdisc depuis 
sa sortie, j’utilise le SEDORIC ; 
quel merveilleux produit ! Mais 
voilà... à ce jour, toujours rien à 
mettre dans le lecteur (...) ; ne 
peut-on adapter les logiciels de 
cassette à disque et suivre ainsi 
l'exemple d'AMSTRAD ? (...) 
Dans ces conditions, que! est 
l'avenir du TELESTRAT ? (...) 
ORIC paraît liquidé... 

Que d'interrogation et d'inquié¬ 
tude dans ce même courrier I 
Pourtant il reflète les craintes de 
bien des utilisateurs d'ORIC. Les 
éditeurs de logiciels ont baissé les 
bras, les revendeurs, las d'atten¬ 
dre le TELESTRAT, se tournent 
vers d'autres marques... Les pas¬ 
sionnés d'ORIC se sentent lésés, 
et il ne leur reste, pour trait 
d'union et fournisseur de logi¬ 
ciels, que la revue THEORIC. 
Nous espérons tous un tournant 
qui relancerait notre ordinateur 
favori. En attendant, la rédaction 
s'efforce de sélectionner des arti¬ 
cles et programmes susceptibles 
de satisfaire le plus grand nom¬ 
bre. Pour cela, nous avons besoin 
de l'aide de tout le monde : 
auteurs, pour participer à la vie de 
la revue ; lecteurs, pour répondre 
en masse au sondage que nous 
faisons et qui devrait nous per¬ 
mettre de mieux vous servir par 
la suite. Prenez une petite heure 
sur votre temps libre et répondez 
soigneusement aux questions 
que nous vous posons. 


Alain GARNUNG 
33 LE BOUSCAT 

Où peut-on se procurer des piè¬ 
ces détachées pour imprimante 
GP 50A et notamment, le moteur 
pas à pas (...) ? Le seul revendeur 
sur Bordeaux ayant accepté la 
réparation propose Tenvoi à Paris 
avec un forfait de 950 F plus le 
port ! 

Et bien.... on peut dire que votre 
revendeur n'y va pas par 4 che¬ 
mins ! A ce prix, il est plus inté¬ 
ressant d'acheter une imprimante 
neuve ! Hélas, nous ne savons 
pas s'il est possible de se procu¬ 
rer facilement des pièces déta¬ 
chées pour ce genre de matériel. 
Néanmoins, si nous publions 
votre lettre dans nos colonnes, 
c'est pour permettre à nos lec¬ 
teurs de vous aider, si l'un d'en¬ 
tre eux a une solution. 


Michel DROUVROY 
88 EPINAL 

Pourquoi ne pas faire un repor¬ 
tage sur les éditeurs de logiciels, 
pour savoir comment ils travail¬ 
lent et quels sont leurs projets ! 
Il est difficile de faire un reportage 
sur ce sujet, vu que pratiquement 
tous les éditeurs de logiciels ont 
délaissé l'ORIC pour des marchés 
plus porteurs. L'espoir renaissait 
avec l'annonce du TELESTRAT, 
mais son retard, sans cesse crois¬ 
sant, semble tout compromet¬ 
tre... 


TELEPHONE 

Les lecteurs peuvent joindre les 
services administratifs de la revue 
tous les jours, entre 9h00 et 
16h00, sauf pendant les cré¬ 
neaux réservés à la rédaction. 
Rappelons qu'il est possible de 
joindre la rédaction pour des ren¬ 
seignements techniques le mer¬ 
credi de 9h00 à 12h00 et de 
14h00 à 17h00 et le vendredi de 
9h00 à 12h00. Nous vous remer¬ 
cions de respecter ces créneaux 
horaires. 

PUBLICATION 
DE PROGRAMMES 

La publication de programmes 
dans la revue suppose l'accepta¬ 
tion des conditions suivantes : 
— le programme doit être envoyé 


sur cassette ou disquette, 
accompagné d'un descriptif 
concernarit son mode d'emploi 
et, éventuellement, sa structure ; 

— l'envoi sera accompagné 
d'une lettre manuscrite certifiant 
sur l'honneur que l'expéditeur en 
est bien l'auteur et qu'il n'a pas 
été repris à partir d'une autre 
publication ; 

— tout programme parvenu à la 
rédaction ne respectant pas les 
conditions ci-dessus, sera 
écarté ; 

— l'auteur envoyant un pro¬ 
gramme à la revue accepte taci¬ 
tement sa publication. 


QUESTIONS CONCERNANT 
LES LOGICIELS COMMERCIAUX 

Trop souvent encore, nous rece¬ 
vons des lettres de lecteurs nous 
posant des questions sur des 
logiciels commercialisés. 
Répétons-le, nous ne pouvons 
pas répondre à ce genre de ques¬ 
tions qu'il faut poser directement 
aux éditeurs de logiciels concer¬ 
nés. De même, il nous est impos¬ 
sible de fournir de la "documen¬ 
tation" ou des "catalogues" de 
logiciels pour QRIC. Nous faisons 
une revue sur l'QRIC... nous ne 
sommes pas un magasin ! 


DATTEL, C'EST FINI ! 

La société DATTEL qui fabriquait 
les JASMIN, pour le compte de 
TRAN, a été mise en règlement 
judiciaire à la mi-juin. Plusieurs 
lecteurs nous ont alertés, et il 
semble difficile de récupérer le 
matériel se trouvant en SAV chez 
DATTEL. La société TRAN a 
annoncé qu'elle ferait le néces¬ 
saire pour venir en aide aux utili¬ 
sateurs. 


EUPHORIC 

Deux lignes sont à changer dans 
le programme VALOCTET donné 
sur la disquette n°8 de THEORIC, 
version ORIC-1, 

Ligne 385 0% = SCRN(9 +1,14) 
480 0% = SCRN(9 + J,14) 

Dans le programme "UTILITEL", 
changer sur les lignes 370 et 390 
la variable N en M, sinon on est 
bloqué à 26 pages au lieu de 30 
lors de la mémorisation. 
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COMPATIBLE PC 
POUR ORIC OU MON ? 

La société IRAN étudierait une 
carte "Full Compatible PC” pour 
ORIC-ATMOS. Cette carte existe 
bel et bien mais, après étude du 
marché, la société TRAN a décidé 
de ne pas la commercialiser. En 
effet, cette carte coûterait plus 
cher qu'un système compatible 
PC. Eh oui, le marché estimé 
n'est pas assez important pour 
avoir un prix très concurrentiel. 
Par contre, à la place de cette 
carte, la société TRAN propose 
un ensemble complet de Jasmin- 
PC contenant l'unité centrale 
avec au moins 512 k-octets, une 
sortie RVB et vidéo couleur, une 
sortie imprimante parallèle "Cen- 
tronic” et deux lecteurs de dis¬ 
quettes incorporés : un lecteur 
5” 1/4, 360 k-octets formatés et 
un lecteur 3" 1/2, 720 k-octets 
formatés. Ce qui permet une 
compatibilité avec les anciens 
logiciels sur disquette 5" 1/4 ainsi 
qu'avec le nouveau format choisi 
par IBM, le 3''1/2. 

Le Jasmin-PC complet comprend 
l'unité centrale, un vrai clavier de 
plus de 80 touches mécaniques 
AZERTY (français) de qualité et 
l'écran haute résolution mono¬ 
chrome. Le Jasmin-PC va faire du 


dégât, surtout au prix prévu : aux 
alentours de 6000 F TTC. Et je 
ne vous ai pas tout dit. Le 
JASMIN-PC serait livré d'office 
avec le fameux "GEM” et le 
DOS -t- de Digital Research. GEM 
vous permettra de dialoguer et 
commander votre JÀSMIN-PC à 
l'aide de symboles évolués (icô¬ 
nes), représentant votre bureau 
ou lieu de travail sur l'écran multi- 
fenêtres. 

Si vous avez déjà vu fonctionner 
un "Macintosh” de chez APPLE, 
vous avez alors une idée de l'uti¬ 
lisation du JASMIN-PC sous GEM 
qui donne une présentation ana¬ 
logue sur l'écran. 

Par contre, le DOS -t- étant conçu 
par Digital Research, concepteur 
de la gamme CP/M, peut lire 
aussi bien les disquettes au for¬ 
mat CP/M-IBM que les disquettes 
sous PC-DOS ou MS-DOS. 

Nous attendons patiemment sa 
disponibilité pour tester cette 
merveille pour vous. 


NOUVEAUTES CHEZ TRAN 

La société TRAN, concepteur et 
distributeur du lecteur JASMIN 
pour ORIC, vient de lancer le lec¬ 
teur JASMIN AM5D. C'est le lec¬ 
teur esclave (ou 2® lecteur), au 


format 5” 1/4 pour AMSTRAD. 
Mais, ce n'est pas ce qui nous 
intéresse ici. La bonne nouvelle, 
c'est que ce lecteur est aussi 
compatible avec le JASMIN pour 
ORIC, c'est-à-dire qu'on peut 
aussi le brancher en deuxième 
lecteur avec le JASMIN ou le 
JASMIN 2( -I- ). Les utilisateurs de 
JASMIN vont pouvoir augmenter 
leur capacité de stockage et, en 
même temps, économiser sur les 
prix des disquettes. 

En effet, les disquettes 3” coû¬ 
tent aux alentours de 40 F, tan¬ 
dis qu'on trouve des disquettes 
5” 1/4 à moins de 5 F (l'écono¬ 
mie de 40 disquettes vous paye 
le JASMIN AM5D qui coûte seu¬ 
lement 1 599 F TTC). Le JASMIN 
AM5D se branche en deuxième 
lecteur du'JASMIN 2 ou du 
JASMIN 2 + , grâce au câble 
adaptateur de référence CJ02 qui 
coûte 180 F TTC. 


PROCHAINEMENT 

A partir des numéros de la ren¬ 
trée, en septembre, vous aurez 
des articles sur l'organisation de 
la disquette JASMIN, la façon 
dont sont liés les fichiers, le cata¬ 
logue, le "BITMAP”, etc.... et les 
différentes façons de gérer des 
fichiers. 


VITRINE 

DU 

LOGICIEL 

"KARATE" 

(GASOLIIME SOFTWARE) 

Simulation Combat 

Un nouveau jeu sur ORIC ! On n'osait 
plus y croire... Gasoline Software, on 
vous l'a présenté dans un précédent 
THEORIC. Cette filiale de ERE Informa¬ 
tique nous offre ici un jeu écrit en lan¬ 
gage machine, qui sait être agréable mal¬ 
gré les limitations de l'ORIC. Avec le 


titre, et au vu de la jaquette, vous aurez 
certainement deviné de quoi il s'agit. 
Votre adversaire, dans ce combat de 
Karaté sans merci, sera un autre joueur 
ou l'ordinateur. Si deux joueurs s'affron¬ 
tent, chacun disposera de la moitié du 
clavier. C'est en effet au moyen de 5 
touches que l'on commande les combat¬ 
tants. Bien qu'il n'y ait pas de sprites sur 
ORIC, malgré les limitations de couleurs 
dues aux conflits de proximité, l'anima¬ 
tion est pas mal réussie. 

Sur un fond de décor extrêmement orien¬ 
tal (fallait la faire, celle-là !), les deux 
combattants n'attendent que vous pour 
combanre. La montée en niveau est pro¬ 
gressive ; les combats deviennent, de ce 
fait, plus difficiles. Rien ne sert de "mou¬ 
liner" des pieds et des jambes : votre 
potentiel d'énergie ne ferait que décroî¬ 
tre, et vous vous écrouleriez comme une 
masse. Mieux vaut chercher à placer 
quelques bons coups... 

Agrémenté de quelques bruitages 
accompagnant les coups, KARATE 
devrait plaire à tous ceux qui ne savent 
plus quel jeu acheter devant la multitude 
de logiciels qui nous sont proposés pour 
ORIC (!!!). 
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LE 


UNE PUCE SAVANTE ! 


m e 6502, le microprocesseur de TORIC, est secondé 
dans ses multiples tâches par trois circuits intégrés 
WÊK spécialisés : ce sont le 8912 pour le son, l'ULA pour 
le rafraîchissement des RAM et la vidéo, et enfin le 6522 
aussi appelé VIA (Versatile Interface Adapter, c'est-à- 
dire interface d'adaptation "souple"). Ce circuit gère 
principalement les entrées/sorties clavier et cassettes. 


C'est ce dernier qui va nous intéresser ici. Après 
avoir donné ses principales caractéristiques, nous 
regarderons ses applications dans le cadre de l'ORIC. 
Une étude technique complète déborderait du cadre 
de cet article. C'est pourquoi les lecteurs curieux 
pourront se reporter à la (courte) bibliographie jointe. 

LA STRUCTURE INTERNE 

On trouvera un synoptique en figure 1. Celle-ci fait 
apparaître principalement : 

— 2 ports bidirectionnels (port A et port B), 

— 2 compteurs programmables de 16 bits (Tl et 
T2), 

— 1 registre à décalage (SR, comme Shift Register), 

— 4 lignes de contrôle (CAI, CA2, CBl et CB2), 

— 2 registres de gestion des interruptions (lEF et 
1ER). 

Ce circuit possède donc à peu près tout ce que l'on 
est en droit d'attendre d'un organe d'entrée/sortie. 
Passons rapidement en revue le brochage (donné en 
figure 2). 

y>2 — Horloge du système. Est reliée au if>2 du 
microprocesseur. 

RES — Reset. Un niveau bas sur cette ligne entraî¬ 
nera une initialisation du composant (tous les ports 
sont alors des entrées), 

R/W — Read-Write : le microprocesseur précise avec 
cette ligne s'il lit (niveau haut) ou s'il écrit (niveau 


bas) dans les registres internes du VIA. 

DO à D7 — Ce sont les 8 lignes de données 
communes à tout le système. 

CS1/CS2 — Permet de sélectionner le VIA : un 
niveau haut sur CS1 ainsi qu'un niveau bas sur CS2 
activeront le 6522 (c'est la première chose à faire 
avant de vouloir lire ou écrire). 

RSO à RS3 — Lignes de sélections des registres 
internes. Ces 4 lignes sont reliées aux lignes d'adres¬ 
ses AO, Al, A2 et A3, ce qui permet d'adresser les 
16 registres internes que nous détaillerons ensuite. 
IRQ — Interrupt Request. Le VIA rend cette ligne 
active (en la faisant passer à 0) pour signaler au 
6502 qu'une interruption a eu lieu. 

PAO à PA7 — Port A : 8 lignes bidirectionnelles (peu¬ 
vent être des entrées ou des sorties). 

PBO à PB7 — Port B : idem au port A avec toutefois 
une utilisation particulière des lignes PB6 et PB7 avec 
les timers Tl et T2. 

CA1/CA2 — Lignes de commandes du port A. CA2 
peut être en entrée ou en sortie. CAI est toujours 
en entrée. Ces entrées pourront servir à détecter une 
interruption envoyée par un périphérique. Le 6502 
en sera alors averti par la ligne IRQ. 

MQDE PQIGNEE DE MAIN 

L'utilisation de CA2 (ou de CB2) en sortie est utile 
en mode dit de poignée de main, qui permet de gérer 
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Commande 

dinterruptions 



RES -» 


RW -» 

Accès 

02 -» 

au 

CS1 -» 

circuit 

CS2 -» 

1 

el 



RS1 -» 

des 

RS2 -» 

logis Ires 

RS2 - ï 



A 

Périphériques 

(PCR) 


V 

Auxiliaires 

(ACR) 



Registres de 
lorKtions 


A 

Verrou de poids 
tort {Tl L H) 

Verrou de poids 
table (Tt LL) 

V 

Cornpteur de poids 
lort(TICH) 

Compteur de poids 
faible (Tl C-L) 


Temporisaleur 1 


Temponsaieur 2 


l-N 



Verrou de poids 
table (T2L-L) 

Compteur de poids 
tort (T2C-H) 
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latble (T2C-L) 


Port A 



Registres du port B 


Figure 1 : Structure interne 



La 

Registre rfenlrèe 
verrouillable 




Registre de 
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Registre de 
dâecUon (DDR B) 




O 


Port B 



AVEZ-WUS 
LA COLLECTION 
COMPLETE 
DE THEORIC ? 

Bon de commande page 3 


Masse 

PAO 

PA1 

PA2 

PA3 

PA4 

PAS 

PAS 

PA7 

PBO 

PB1 

PB2 

PB3 

PB4 

PB5 

PB6 

PB7 

CB1 

CB2 

Vcc 



CAI 

CA2 

FISC 

FISI 

FIS2 

RS3 

RES 

00 

01 

02 

03 

04 

05 

06 

07 

02 

CS1 

C» 

R'W 

IRQ 


Figure 2 : Brochage 

un protocole de communication entre le VIA et un 
périphérique. 

En effet, si ce périphérique est très lent à écrire des 
données sur un port du VIA, il est inutile de perdre 
son temps à les attendre. Le 6522 n'aura qu'à 
"vaquer" à ses occupations et le périphérique acti¬ 
vera CA2 lorsqu'il sera prêt. Une interruption est 
alors envoyée en direction du microprocesseur via 
la ligne IRQ, et si cela a été prévu par le program¬ 
meur, l'information sera lue. 

Inversement (nous voici à l'utilisation en sortie), le 
VIA activera CA2 pour prévenir le périphérique 
qu'une donnée lui est destinée sur le port A. Quand 
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il en aura pris connaissance, il lui suffira d’envoyer 
un "accusé de réception". 

Voilà donc un protocole tout à fait correct, ou cha¬ 
cun sait exactement ce qu'il a à faire. 

REMARQUE : Seule l'écriture est possible en poi¬ 
gnée de main sur le port B. 

CB2 et CB1 ont une utilisation tout à fait sembla¬ 
ble. De plus, ces deux lignes sont associées au regis¬ 
tre à décalage. 

LES REGISTRES INTERNES 

Comme il a été dit plus haut, ils sont au nombre de 
16. Voici leur désignation dans le détail avec leur 
adresse pour l'ORIC : 


Adr. 

Désign. 

DESCRIPTION 

«300 

ORB/IRB 

En lect.: registre de 
sortie du port B 

En écr.; registre 
d'entrée du port 6 

#301 

ORA/IRA 

En lect. ; registre 
de sortie du port A 

En écr. : registre 
d'entrée du port A 

«302 

DORB 

Registre de direction du port B 

«303 

DORA 

Registre de direction du port A 

«304 

T1C-L 

Poids faibles du TIMER 1 

«305 

T1CH 

Poids forts du TIMER 1 

«306 

T1L-L 

Verrou de poids faible du TIMER 1 

«307 

Tl L H 

Verrou de poids fort du TIMER 1 

«308 

T2CL 

Poids faibles du TIMER 2 

«309 

T2C-H 

Poids forts du TIMER 2 

«30A 

SR 

Registre à décalage 

«308 

ACR 

Registre de commande auxiliaire 

«30C 

PCR 

Registre de commande périphérique 

«30D 

IFR 

Reg. des indicateurs d'interruption 

«30E 

1ER 

Reg. d'autorisation d'interruption 

«30F 

ORA/IRA 

Comme en «301, sans poignée de main 


Les 4 premiers registres sont très simples à utiliser : 
on précise d'abord au registre de direction les lignes 
qui seront des entrées et celles qui seront des sor¬ 
ties. Un "1" positionnera la ligne en sortie, et un 
"0” en entrée. Exemple : 


DDRA = 

1 

1 

1 

1 

0 

0 

0 

0 


7 

6 

5 

4 

3 

2 

1 

0 


Ceci mettra les lignes PA7, PAG, PA5 et PA4 en sor¬ 
ties, et les lignes PA3, PA2, PA1 et PAO en entrées. 

Il suffit ensuite d'écrire en # 300 l'octet à transmet¬ 
tre au périphérique. Inversement, il suffira de lire le 
contenu de #300 pour récupérer une information 
déposée sur le port. 


Tous ces registres sont bien sûr utilisés par l'ORIC 
(excepté le registre à décalage), ce qui permet une 
gestion puissante des entrées/sorties. 

Voyons maintenant en détail les deux registres de 
gestion des interruptions IFR et 1ER, car il est impor¬ 
tant de bien connaître leur fonctionnement ; 

Les interruptions 

Rappelons brièvement ce qu'est une interruption : 
le microprocesseur n'est pas tout seul dans un 
micro-ordinateur. Il est assisté par des composants 
spécialisés se chargeant de diverses tâches. 

De la même façon que pour la poignée de main, il 
n'est pas question que le 6502 attende systémati¬ 
quement après ses périphériques. Il est alors prévu 
que ceux-ci envoient sur une broche du micro un 
signal pour prévenir que quelque chose s'est passé 
(touche appuyée, donnée sur un port, ect.). Le 
microprocesseur termine alors l'ins^truction en cours, 
puis se renseigne pour savoir qui l'a "dérangé" afin 
de traiter le travail demandé. 

Le 6502 ne possède que 3 entrées d'interruptions ; 

— RESET ; est activé à la mise sous tension. 

— NMI : est activé par l'appui de la touche RESET. 

— IRQ : est la seule entrée utilisable pour recevoir 
les interruptions des périphériques. 


LES DISQUETTES DE 


thé#ric 



BON DE COMMANDE 

PAGE 6 
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C'est IRQ qui recevra les demandes d'interruptions. 
Oui, mais comment savoir de qui elles émanent ? 
C'est là qu'intervient le VIA avec son registre indi¬ 
cateur d'interruptions IFR. Chacun des 8 bits de ce 
registre se positionne quand une action particulière 
a été accomplie, en même temps que la ligne IRA 
devient active pour prévenir le micro. Ainsi, toutes 
les interruptions (qu'elles soient internes ou exter¬ 
nes au VIA) sont toujours comptabilisées dans ce 
registre, de telle sorte que le 6502 sait de qui elles 
proviennent par simple lecture de l'IFR. 

Voyons le détail de ce registre : 


Le fonctionnement du PCR 

Ce registre permet de déterminer le type de signaux 
qui seront actifs sur les entrées de contrôle. 


format : 

CB2 

CB1 

CA2 

CAI 


7 6 

5 

4 

3 2 

1 

0 


Modes de fonctionnement de CA2 ; 

Le tableau pour CB2 est identique, il est donc inu¬ 
tile de le représenter. Il concerne les bits 5, 6 et 7 
du PCR, et c'est le bit IFR3 qui est alors positionné. 



Tl 

T2 

CB1 

CB2 

SR 

CAI 

CA2 

7 

6 

5 

4 

3 

2 

1 

0 


Ainsi, si CA2 est soumis à une transition active, le 
bit 0 de ce registre passera à 1 (le bit 7 passe à 1 
si une interruption a eu lieu, c'est-à-dire si au moins 
un bit de ce registre est à 1). 

Mais une possibilité supplémentaire nous est 
offerte : le fait de pouvoir masquer une ou plusieurs 
interruptions. Pour cela, on utilise le registre 1ER 
d'autorisation d'interruptions. Ses bits correspon¬ 
dent à ceux de l'IFR. 

Pour masquer une interruption, il faut que le bit cor¬ 
respondant soit à 1, et le bit 7 à 0. Ainsi, pour inhi¬ 
ber CB2, il faudra placer dans 1ER la valeur : 

00001000= #08 
bit : 76543210 


Modes de fonctionnement de CA1 et de CB1 


PCR 4 


PCR 0 


CB1 CB2 

PCRO pour CAI et PCR4 pour CB1 précisent égale¬ 
ment la nature de transition qui positionnera les indi¬ 
cateurs d'interruptions associés : 

CAI - IFRI 
CB1 - IFR4 

Un "0" correspond à une transition négative. 

Un "1" correspond à une transition positive. 

Je pense que vous comprenez maintenant mieux 
pourquoi on qualifie ce composant de "versatile"... 
Et attendez, ce n'est pas fini ! 


A partir de ce moment, une transition active sur CB2 
n'entraînera pas le positionnement de la ligne IRQ. 
Le 6502 ne sera alors pas prévenu de cette action. 
De la même façon, on peut autoriser une ou plusieurs 
interruptions. Il suffit de mettre à 1 les bits corres¬ 
pondants, ainsi que le bit 7. Pour autoriser CB2, on 
écrira dans l'IER : 

1 0 0 0 10 0 0 = #88 


PCR3 

PCR2 

PCR1 

MODES DE FONCTIONNEMENT 

0 

0 

0 

flanc descendant actif (met IFRO à 1) IFRO 
rentts i 0. soit par lect./écriture sur ORA, soit 
en écrivant un 1 dans IFRO 

0 

0 

1 

flanc descendant actif (met IFRO à 1) la 
lect./écriture sur ORA ne remet pas IFRO é 
0. Seul un 1 dans IFRO le fait. 

0 

1 

0 

flanc ascendant actif (met IFRO é 11 IFRO 
remis é 0. soit par lect./écriture sur ORA. soit 
en écrivant un 1 dans IFRO. 

0 

1 

1 

flanc ascendant actif (met IFRO é 1) la 
lect./écriture sur ORA ne remet pas IFRO à 
0. Seul un 1 dans IFRO le fait. 

1 

0 

0 

sortie poignée de main sur CA2 mise é 1 par 
une transition active sur CAI. Remise à 0 
par lect./écriture sur ORA. 

1 

0 

1 

sortie impulsion sur CA2. CA2 passe à 0 
pour un cycle après une lect./écriture sur 
ORA. 

1 

1 

0 

CA2 est forcée é 0 

1 

1 

1 

CA2 est forcée é 1 


Fonctionnement de l'ACR 

Il gère le fonctionnement des deux temporisateurs, 
ainsi que du registre à décalage, sans oublier le ver¬ 
rouillage des données des deux ports. 


Format de l'ACR : 

Tl 

T2 

SR 

PB 

PA 


7 6 

5 

4 3 2 

1 

0 


Verrouillage des données 

Si ACR0= 1 (pour le port A) ou ACR1 = 1 (pour le 
port B), les données présentes sur les ports sont ver¬ 
rouillées au moment où se présente le flanc actif sur 
CAI (pour le port A) ou sur CB1 (pour le port B). 

Le registre à décalage 

Il possède 6 modes de fonctionnement, mais sachez 
qu'il n'est pas utilisé dans l'ORIC. De plus, il n'est 
relié à aucun connecteur extérieur. 

Son utilisation s'avérera donc difficile pour un 
néophyte, d'autant plus qu'une application telle 
qu'une liaison série (type liaison ORIC/Minitel) est 
relativement complexe à gérer. Il faut en effet créer 
les bits de start, de stop et de parités par pro¬ 
gramme, contrairement à ce qui se passe avec l'uti¬ 
lisation d'un UART (6551 par exemple, qui équipe 
la carte série Minitel du THEORIC n° 14). 

L'entrée et la sortie du registre à décalage se font 
par CB2. La fin du décalage est indiquée par IFR2. 


12 


































r»»- 


ACR4 

ACR3 

ACR2 

MODES DE FONCTIONNEMENT 

0 

0 

0 

Registre à décalage inactif 

0 

0 

1 

Décalage en entrée au rythme de T2 

0 

1 

0 

Décalage en entrée au rythme de ^2 

0 

1 

1 

Décalage en entrée au rythme d'impulsions 
extérieures sur CB1 

1 

0 

0 

Sortie en mode continu (pas d'arrêt en fin 
de décalage), rythmé par T2 

1 

0 

1 

Décalage en sortie au rythme de T2 

1 

1 

0 

Décalage en sortie au rythme de y>2 

1 

1 

1 

Décalage en sortie au rythme d'impulsions 
extérieures sur CB1 


Les Timers 

Ce sont deux registres de 16 bits dans lesquels il 
suffit d'écrire une valeur pour que celle-ci soit auto¬ 
matiquement décrémentée au rythme de l'horloge 
du système 2. En fin de décomptage, l'indicateur 
d'interruption est renseigné (IFR7 pour Tl et IFR6 
pour T2). 

Mais, de plus, le Timer 1 possède un "verrou" qui 
peut être utilisé pour obtenir un fonctionnement en 
mode "libre". On dépose dans ce verrou la donnée 
à décompter. Cette donnée est alors recopiée dans 
les deux cellules de décomptage TIC-H, T1C-L (elle 
n'est donc pas modifiée), et le décomptage 
commence. Quand la valeur est nulle, le verrou est 
à nouveau recopié dans Tl, et ainsi de suite. Cela 
permet donc un fonctionnement autonome, sans 
avoir à réinitiliser à chaque fois le compteur Tl. 
Le Timer 2 se différencie du Timer 1 par le fait qu'il 
ne possède pas de verrou de poids fort. Le fonction¬ 
nement "libre" vu ci-dessus est donc impossible. 

REMARQUES : 

• C'est l'écriture des poids forts dans les Timers qui 
déclenche le décomptage. 

• Il est possible de lire et d'écrire dans les registres 
du Timer Tl, par contre le verrou de poids faible 
de T2 est à écriture seule, et sa cellule de décomp¬ 
tage à lecture seule. 

Mais, comme vous le verrez dans le tableau suivant, 
les possibilités de ces deux Timers ne s'arrêtent pas 
là : 


ACR7 

ACR6 

MODES DE FONCTIONNEMENT DU TIMER 1 

0 

0 

IFR 7 est positionné en fin de décomptage 

0 

1 

Mode libre ou "free running" 

Rechargement automatique des cellules en fin de 
décomptage. IFR7 est positionné à chaque fois. 

1 

0 

Mode impulsionnel : PB7 passe à 0 pendant le 
décomptage, puis repasse é 1 et positionne IFR7. 

1 

1 

Mode oscillateur ; rechargement automatique des cel¬ 
lules, PB7 change d'état à la fin de chaque décomp¬ 
tage et positionne IFR7 : génération d'un signal carré 
sur la patte PB7. 


Pour le Timer 2, seul ACR5 est utilisé : 

Si ACR5 = 0 — IFR6 est possitionné en fin de 
décomptage. 

Si ACR5=1 ^ Le Timer est décrémenté par des 
impulsions négatives reçues sur PB6. Quand la 
valeur est nulle, IFR6 est positionné. Ceci permet 
d'effectuer un comptage d'impulsion. 

LE 6522 DANS L'ORIC 

La gestion de la liaison Centronics (imprimante) : 

Il utilise le port A comme ligne de données, CAI pour 
l'acknowledge et PB4 por le strobe. Qn trouvera en 
# F5C1 pour l'ATMQS ou en H F57B pour l'QRIC 1. 
la routine d'envoi d'un caractère sur l'imprimante. 

Le son 

C'est le règne du 8912. Cependant, c'est le port A 
qui lui envoie ses informations. 




Lecture du clavier 

Elle se fait par l'intermédiaire du 8912 (donc du port 
A). Sont également utilisées les lignes PBO à PB3. 

La routine d'acquisition clavier se trouve en # F561 
(ATMQS) ; celle-ci est provoquée par une interrup¬ 
tion envoyée toutes les millisecondes par la fin de 
décomptage de Tl qui fonctionne en mode libre. 

La gestion des entrées/sorties cassettes 

La sortie cassette se fait sur PB7 (qui est mis en 
mode oscillateur). Le signal d'entrée, lui, après être 
passé dans un circuit de mise en forme, est appli¬ 
qué sur CB1. Celui-ci est initialisé pour être sensi¬ 
ble à des transitions positives. Le Timer 2 est éga¬ 
lement utilisé pour ces opérations. 

C'est la routine VIA QN ( # E76A;ATMQS, X 
#E6CA:QRIC-1) qui initialise les registres pour ces 
opérations. Tout est remis en ordre par VJA QFF 
(#E93D:ATMQS, # E804:QRIC-1 ). 



Le relais 

Il est commandé par PB6. Un 1 sur cette ligne colle 
le relais, un 0 le décolle. 

Voilà, il y aurait encore beaucoup à dire, mais je 
pense que vous serez maintenant convaincu du rôle 
important que joue le 6522 dans l'QRIC... 

BIBLIOGRAPHIE 

"LE VIA 6522" de chez PUBLITRQNIC 

"CLEFS PQUR L'QRIC" d'E. FLESSELLES de chez 

PSI 

"MANUEL DE REFERENCE" d'André CHENIERE de 
chez ISQSQFT. 

Et un bon désassembleur... 
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Frédéric FALSETTI 


permet d'écrire en gros caractères sur l'écran 
V^PTEXT. Cette routine fonctionne sur ATMOS et 
ORIC-1. Elle est en langage machine car la version 
Basic serait d'une lenteur crispante. 


Le principe est très simple ; lec¬ 
ture des octets de définition des 
caractères bit par bit. Si le bit est 
à zéro, on inscrit un espace à 
l'écran, s'il est à un, un carré 
grisé. Ensuite on passe à l'octet 
suivant. Jusqu'à huit, le dernier 
octet est lu aussi car s'il est tou¬ 
jours à zéro pour les majuscules, 
ce n'est pas le cas pour les 
minuscules. 

Plutôt qu'afficher un caractère 
carré, afficher © ou autre carac¬ 
tère petit et arrondi donne des 
caractères moins vilains. 


La routine d'exploitation est en 
Basic car là le facteur temps n'est 
pas significatif, d'une part, et 
d'autre part chacun pourra ainsi 
utiliser gros à sa convenance 
(routine en 2CX)-320). Attention : 
sur ORIC-1, remplacer-les ' par 
REM... 

La routine en 600 permet de 
modifier l'affichage (fond et pre¬ 
mier plan) selon son goût. 

Le NOP en # 7062 permet de pla¬ 
cer en ft 7060 un JSR xx XX : 
une sous-routine qui pourrait affi¬ 
cher des caractères de couleur 


aléatoire, ou des caractères de 
couleurs différentes selon la 
ligne, ou selon la colonne, ou 
selon le code ASCII, ou produire 
un bruitage style télétype de 
grand-mère, ou encore, ce qui est 
plus ardu, arrondir les angles des 
caractères afin de les rendre plus 
jolis (pour un bruitage, penser à 
ralentir la routine). 

GROS ne fonctionne pas sur 
Mires, car si dans le principe cela 
ne pose pas de problème, côté 
esthétique, cela en pose. Aussi 
ai-je été conduit à ajouter une 
routine "GROS-MIRES" qui 
donne un résulat très acceptable. 
Enfin, si vous voulez déplacer 
GROS, vous constaterez qu'une 
routine auto-indexée est un mas¬ 
todonte pesant, désolé... A vous 
de le modifier ! 



320 

END 




538 ’707A 

STA $7066 

bas. 

itiMtiiill CDAC iMiiiiiitir* 






540 ’707D 

LOA #$01 

linitialise tes- 


400 

t 1 t 1 1 1 
1 1 1 1 1 

!!! ASSEMBLEUR II II!;!!!! 

542 ’707F 

STA $705A 

)-teur de bits. 



1 1 t 1 1 
» 1 1 1 1 

1 1 1 

1 « % 

COMMENTE il!II! Il il 

544 '7082 

CPY »$08 

ljusau’a 







546 '7084 

BNE $7057 

18 lianes. 

200 ’i;!!!! BASIC lll!!!!: 

500 

'7054 

CLD 



548 '7086 

DEC $7067 

si 

!!!!!; D’EXPLOITATION !i::!:!! 

502 

'7055 

LDY 

•tOQ 

Iconoteur octets. 

550 '7089 

LDA $7066 

fini 

201 ’:!!!!! (EXEMPLE) 

504 

'7057 

LDX 

•$06 

IcoAoteur bits. 

552 ’70GC 

SEC 

alors 


506 

•7059 

LDA 

KOI 

(testeur 

554 ’708D 

SBC t$3A 

se cositionne 

210 INPUT’LI(5NE.C0L0r«E':Y.X 

508 

’705B 

AND 

$B640.Y )de bits. 

556 ’708F 

BCS $7094 

oour 

215 X=X-rcar le conoteor de bits (re 

510 

’705E 

BEO 

*7062 

)si bit a 

558 '7091 

DEC $7067 

le caractère 

olstre d’index X) oui sert aussi d’ 

512 

•7060 

LDA 

•$5E 

)1 alors orise 

560 '7094 

STA $7066 

suivant. 

216 ’index d’affichaoe des octets va 

514 

’7062 

NOP 


)si bit a 

562 '7097 

RTS 

fin. 

de 1 a 6 et non de 0 a 5 

516 

'7063 

ADC 

•$20 

)0 alors esoace 




220 DONE 17066.iBBA8+40tY+X 

518 

’7065 

STA 

tBE6F.X)a l'écran. 




230 as 

520 

•7068 

ASL 

$705A 

)pour test du 

600 

MODIFICATION ::ii!!:i 

240 REPEAT 

522 

’706B 

DEX 


Ibit suivant 

Il 1 1 1 
• 1 1 1 $ 

DES PAVES 1 ! ! 11 il ! 

250 A=A+1; 

524 

’706C 

BNE 

*7059 

ljusau’a 6. 

601 ’!l!!l 

D’IMPRESSION il!!!!!; 

260 6ET R$ ;1F R$=*\‘ THEN 300 

526 

’706E 

INY 


loctet suivant. 




270 IF ASC<R»)=20 THEN PRINT CHR* (20 

528 

’706F 

ac 


Dour 

610 INPUT'PAPIER.ENCRE ’iP.E 

)::60T0 260 

530 

'7070 

LDA 

•428 

afficher 

620 IF P<8 THEN P=P+16 

280 D0((E I705C.IB400+8*ASC(R$) 

532 

’7072 

ADC 

$7066 

une 

622 IF E<0 THEN E=C+16 

290 CALLI7054 

534 

'7075 

BCC 

•707A 

liane 

625 IF P>255 OR D255 ÏÏCN PRINT *255 

300 UNTIL A=6 OR RJ='\’ 

536 

•7077 

INC 

•7067 

olus 

PIAXr : END 
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630 IF P>E ÏÏCN POKE 17061.256-P+E:PO 
KE #7064.P 

640 IF P=<E nCN POKE #7061.E-P;P0KE 
17064. P 
650 G0T0200 


120C ’++++++ EXPLOITATION ********* 
♦++♦+♦ EN MIRES ++*++♦+++ 
1201 ’'H-f+++ (EXEMPLE ) +++++++++ 

1205 IFPEEK(#2C0)<>3THENPRINT’PASSER 
D’ABORD EN MIRES SVP "rEND 
1210 INPUT‘X.r:X.Y 
1220 DCKE i70AA.iAO00+40*Y+X/6 
1230 as 
1240 REPEAT 
1250 A=A*1 

1260 GET R» :IF R»=*\' THEN 1300 
1280 DOKE I70AO.I9300+8*ASC(R$) 

1290 CALL#7W8 

1300 UNTIL A=6 OR R*=*\‘ 

1320 END 

1400 ’+++♦++ LANGAGE MACHINE ******* 
++'f+++ POUR MIRES +++++++ 

1500 ’7098: D8 aO 

1501 '7099: AO 00 LDV «00 

1502 ’709B: A2 06 LDX #$06 


1503 

’709D: 

A9 

01 


LDA 

«01 

1504 

’709F: 

39 

40 

9A 

AND 

$9A40.Y 

1505 

’7DA2: 

FO 

02 


BEO 

$7CA6 

1506 

■70A4; 

A9 

3F 


LDA 

#$3F 

1507 

’70A6: 

EA 



NOP 


1508 

’70A7: 

69 

40 


ADC 

«40 

1509 

’70A9: 

9D 

02 

AO 

STA 

$AQ02.X 

1510 

’70AC: 

OE 

9E 

70 

ASL 

$709E 

1511 

’70AF: 

CA 



DEX 


1512 

’70B0: 

DO 

El- 


ENE 

$7090 

1513 

’70B2: 

C8 



INY 


1514 

’70B3: 

18 



ac 


1515 

’70B4: 

A9 

50 


LDA 

#$50 

1516 

’70B6: 

6D 

AA 

70 

ADC 

$70AA 

1517 

’70B9: 

90 

03 


BCC 

$70EE 


1518 

’TOBB: 

EE 

AB 

70 

INC 

$70AB 

1519 

’70BE: 

8D 

AA 

70 

STA 

$70AA 

1520 

’70C1; 

A9 

01 


LDA 

«$01 

1521 

’70C3: 

8C 

9E 

70 

STA 

$709E 

1522 

’70C6! 

CC 

08 


CPY 

#$08 

1523 

’70C8: 

DO 

DI 


B-NE 

$709B 

1524 

’70CA: 

CE 

AB 

70 

DEC 

$70AB 

1525 

’70CD: 

CE 

AB 

70 

DEC 

$70AB 

1526 

’70D0: 

AD 

AA 

70 

LDA 

$70AA 

1527 

’70D3: 

38 



SEC 


1528 

’70D4: 

E9 

7A 


SBC 

#$7A 

1529 

’70D6: 

BO 

03 


BCS 

$70DB 

1530 

’70D8: 

CE 

AB 

70 

DEC 

$70AB 

1531 

’70DB! 

8D 

AA 

70 

STA 

$70AA 

1532 

’70DE: 

60 



RTE 



:0 ;=#7054:F=#70DE:L=100:F.£?EAT:FOR A=A TO A*15;READ C$ 

20 K=VALCI’+C$):S=S+K+65536*(S+K>65535):IF A<=F THEN POKE A.K 
30 NHXTîREAD D$:IF S=VALC#’+D$) TÆN L=L+5:UNTIL A>F:£ND 
40 PINS:PR!NT'Erreur lipne':L 

IM DATA D8.A0.0O.A2.O6.A9.01.39.4O.B6.F0.02.A9.5E.EA.69.0745 
105 DATA 20.9D.6F.BE.OE.5A.70.CA.DO.EB.C9.18.A9.S.6D.66.0F10 
110 DATA 70.90.03.EE.67.70.BD.66.70.A9.01.8D.5A./3.C0.08.1604 
115 DATA 00.Dl.CE.67,70.AD.66.70.38.E9.3A.B0.O3.CE.67.70.1E80 
120 DATA 8D.66.70.60.D8.AC.00.A2.06.A9.01.39.68.98.F0.02.2538 
125 DATA A9.3F.EA.69.40.9D.08.B1.0E.9E.70.CA.D0.EB.C8.18.2D8A 
130 DATA A9.50.6D.AA.70.9C.03.EE.AB.70.8C.AA.70.A9.01.8D.3584 
135 DATA 9E.70.C0.08.D0.D1,CE.AB.70.CE.AB.70.AD.AA.70.38.3ECC 
140 DATA E9.7A.B0.03.CE.AB.70.8D.AA.70.60.00.00.00.00.00.44D2 




REVENDEUR AGRÉE ORIC EUREKA 

Ouvert du mardi au samedi de9h30àl2h 15 et de 14h30àI9h 
130, ROUTE DE CORBEIL - 91360 VILLEMOISSON-SUR-ORGE 
Tél. (I) 69.04.04.50 
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IA TfliMATIOUI A lA POilfti M TOUS! 


TT 



PÉRIPHÉRIQUES 


Monileuf couleur spéciol OR M 

. 2750f 

Moniteur monochrome vert 

HR I2 ' . Il50f 

Câble pour moniteur monochro¬ 
me . 90 f 

Moduloteur couleur UHF . 495 F 
Mognétophone à cosseties 

. 360F 

lecteur 3 pouces. 2490 F 


Imprimante MCP 40 plotter 4 cou¬ 
leurs . 990 F 

Côble pour imprimante parallèle 

. 150F 

Rouleau de papier de rechange 

pour imp. 24 F 

Jeu de stylos de rechange 40 F 
Interface pour joystick progrom- 

moble . 360 F 

Joystick type "Quickshot I " 95 F 
lecteur esclave . 1490 F 


— 30 F pour ochots inférieurs 6 
Frais de Port — 50 F pour ochots de 500 P 6 l(XX3F 

— 70 F pour achats supérieur à 1000 f 


64 Ko de RAM (extensible) 

48 Ko de ROM (extensible) 
CARTOUCHE HYPER BASIC 
CARTOUCHE TÉIÉMATIC 
lecteur disquette 3 ptouces, 2 têtes 
Câbles, manuels 

3990 F 


NOM. 

PRENOM : . 

ADRESSE . 

Code Postal .VIllE 

DESIGNATION Ote 


PU 


500 F 


BON DE COMMANDE 


Frais de Port 


TOTAl 


P T 
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2ZoU Qi 


ABONNEZ 


VOUS 


■” VALAB^-E ^^méro) 

(onw'to" : l»'"" •' 


_-*e sor procn , , c jy mots. 

Pour être pr«s porven'.r ovan . 

^non^ . . 

Adresse . 

^Code Postol $',gnature 

r Pays 




SORACm 


LES DISQUETTES DE THEORIC 


Tous les programnoes de THEORIC/ groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 


Le prix : 135 F pour les abonnés (joindre impérativannent l'étiquette), 165 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et ou fonctionnement sur disque lorsque nécessaire. 










U 

TABLEAUX.BAS 

S 

6 SEC'OPS 

N» 

1 THEORIC n® 

4 et 5 

0 

EUROPE 

.BAS 

3 

52 SECTORS 

j 

INTERPRE.BAS 

S 

35 SECTORS. 

N® 

N° 

2 THEORIC n® 

3 THEORIC n® 

6 et 7 

8 et 9 

U 

BULLELM 

.BAS 

S 

6 SECTORS 

V 

MYSTERE .BAS 

S 

16 SECTORS 

N® 

4 THEORIC n® 

10 et 12 

U 

MIROIR 

.BAS 

r* 

D 

la SECTORS 

U 

PUISSAAa.BAS 

s 

55 SECTORS 

N® 

5 THEORIC n® 

13 et 14 

U 

DEUXSPHE.BAS 

s 

R SECTOR: 

U 

ECRAMIXT.EA5 

s 

3 SECTORS. 

N® 

6 THEORIC n® 

15 et 16 

U 

RWSED 

.BAS 

s 

4 SECTORS 

U 

FASTEXSO.BIN 

c 

3 -ECTORS 

N® 

N® 

7 THEORIC n® 

8 THEORIC n® 

1 7 et 18 

19 et 20 

U 

DUMF 

.BAS 

s 

7 SECTORS 

U 

UTILIDAT.BAS 

s 

10 SECTORS 

N® 

9 THEORIC n® 

21 et 22 

U 

CHEC3EC 

.BAS 

s 

5 SECTORS 

U 

UTILITEL.BIN 

S 

3 SECTORS 

N® 

HS THEORIC HORS SERIE (n® 11) 

U 

COMPTE 

.BAS 

s 

19 SECTORS 

U 

UTILITEL.BAS 

s 

20 SECTORS 




■J 

FENETRE 

.BIN 

s 

18 SECTuRS 

ü 

VALOCAT .BAS 

s 

la SECTORS 




U 

UTILa 

.BAS 

s 

la SEC70R: 

U 

VALOCTOl.BAS 

s 

9 SECTORS. 

VOLUME ; T019&20 


U 

LOGO 

.BAS 

s 

ü SEC’ :rs 

ü 

MENULEOl.BIN 

5 

10 SECTORS 




U 

MININTER.BAS 

c 

7 SECTORS 





U LEORICl .BAS S 

74 SECTORS 

0 

CODASC 

.BAS 

s 

û SECTORS 

25R SECTORS freE 



BON DE COMMANDE 
DE5 DI5QUETTE5 THEORIC 


J« commanda lai disquattas 1 2 3 4 5 HS 6 78 
Ci-joint : 135 F par disquatta al mon étiquatta abonné 
165 F par disquatta car ja na suit pat abonné 


Soit au tolol la somma da 
qua ci-joint. 


F régléa por ché- 


NOM .Prénom. 

Adresse. 

Code Postal .... Ville . 























ADAPTATION 
DE MUSICORIC 
SUR JASMIN 

L e programme de Michel DELLA-VALLE a suscité un 
vif intérêt parmi nos lecteurs. Dés lors, pourquoi 
ne pas tenter de l'adapter sur JASMIN ? C'est chose 
faite, grâce à Jacques FAURIEL... 


MODIFICATION D'ADRESSES 

L'auteur de MUSICORIC utilise 
des adresses en page 4 ( # 400 à 
#4FF) qui sont réservées au T- 
DOS. 

Afin de les libérer, j'ai utilisé les 
octets à partir de # 97D0 
(38864), soit quelques octets 
après la fin de la partie en code 
machine {# 97CC). 

Il faut donc remplacer dans le 
programme Basic toutes les 
adresses 1023 (#3FF) par 
38864 {#97CC) 1024 par 
38865, 1026 par 38867 et 
1031 par 38872 (voir les numé¬ 
ros de lignes concernés). 

Il faut également modifier deux 
codes machine en # 96F5 et 
#96F6 en "dokant" : soit DOKE 
38645, 38872 (doke #96F5, 
#97D8). 

MODIFICATION DU MENU 

J'ai supprimé l'option 6 (écouter 
en continu plusieurs morceaux 
d'une cassette) car il faut, pour 
lire un fichier sur disquette, obli¬ 
gatoirement indiquer son nom. 
Je l'ai remplacée par la possibi¬ 
lité d'afficher le catalogue de la 
disquette (cf listing, lignes 
6000-6020. 

ENREGISTREMENT MORCEAU 

Lignes 4000 à 4090 
Le titre (Tl$) est réduit à 8 carac¬ 
tères. Les blancs sont remplacés 
par des tirets (4061 et 4062) 
(JASMIN refuse les blancs). 

LECTURE MORCEAU 

Lignes 5000 à 5090 

Idem que pour enregistrement 


(sauf le calcul des adresses inu¬ 
tiles). 

Le titre est entré en entier, puis 
réduit à 8 caractères avec les 
espaces remplacés par des tirets. 


CHARGEMENT CODE MACHINE 

Lignes 8000 à 8010 
J'ai supprimé la sauvegarde des 
pointeurs Basic ( # 9C — 156) (de 
même que dans la lecture d'un 
morceau); 

NOTE 

Les lignes à modifier (adresses du 
point (1 )) sont : 

1077, 1227, 1387, 1414, 2163, 
2890, 3215, 7505, 7540, 7565, 
7572). 

Le test de la ligne 4500 envoie à 
l'adresse 4075 inexistante. Je 
pense qu'il faut lire 4575. 

Jacques FAURIEL 



EEDITK) 



M.LEVREL F6DTA 



INTERFACES 

1 


POUR 

■f 

g 


0RIC1 

'i 

1 

1 

C 1 Prix : 59 F 

1 10 % de port 

1 


ATMOS 


MlOriQUI, 1.4.0., üUfOJMAniMffS 

PMir faudra soii ORIC ancara pkis parfarmaiit» 

BON DE COMMANDE 


® Je désire recevoir."INTERFACES POUR ORIC-1 ET ATMOS" 

■ contre.F en chèque bancaire, CCP, mandat* à l'ordre des 

Editions SORACOM, La Haie de Pan, 35170 BRUZ. 

I Nom .Prénom . 

■ Adresse . 

Code Postal .Ville . 

I * Royar !•> mantions inutilts. 
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m MSililN 


MODÊf 

POUR 


1) MENU 


3 P0KE618.2•IFPEEKC 38668)-233THEN20 

10 CLS'F0RN«1T011'PRINT'NEXT'PRINTSPCC10)CHR*<4)CHR»C27)"N* MUSICORIC *"CHR»<4) 
15 GOSUB8000 

20 HI riEM 19939 > IFDMO1THEHGOSUB7700 
53 R=D 

100 CLS>PRIHT'PRIHT<P0K.E613^3 
110 PRINT"V0IJLEZ VOUS = " • RRH'IT 

120 PR I NT "1-ENTRER UN NORCERU EN nEflOIRE’’• PRINT 
130 PRINT"2-C0MPLETER OU MODIFIER LE MORCEAU"'PRINT 
140 PRINT"3-EC0UTER LE MORCERU EN MEMOIRE"■PR INT 
150 PRINT"4-ENREGISTRER LE MORCEAU EN MEMOIRE"'PRINT 
160 PRINT"5-CHRRGER EN MEMOIRE UN MORCERU">PRINT 
170 PRINT"6-C0NSULTER LE CATALOGUE DISQUETTE"'PRINT 
180 INPUTCH'IFCH<1ORCH>6THEN180 

182 I F< CH«20RCH=30RCH=»4 >RND< PEEKX 20000 >960RPEEK<: 20015 >=»0 )THEN2flPELSE 190 

184 PRINT"PRS DE MORCERU EN MEMOIRE"'GOTO130 
190 FR=FRE<"" ) ‘GOSUBCH*1000•RUN 

2) ENREGISTREMENT MORCEAU 

4000 CLS■GOSUB6300‘FRoFRE<""? 

4005 IFPEEKC 20040 X >1THENGOSUB4500‘CLS 
4010 PRINTiPRINT"PREPRRER DISK" 

4020 PR I NT > PR INT "PRESSER TOUCHE" ' GETR$ * IFfl$o"E"THENRETIJRN 

4060 F«DEEK< 20007+2*V)+6*M+2 

4061 F0RX=1T03'SS$»MID*CTIÏ/X.1>■IFSS*=" "THENS3*="-" 

4062 S1*=S1$+SS$'NEXTX 

4065 SS$=Sl$+".BIN/#4E20/"+HEX*<F> 

4070 ISRVESSS 
4090 RETURN 

3) LECTURE MORCEAU 

5000 CLS•PRINT■PRIHT = PRINT = PRINT 
5010 INPUT"TITRE DU MORCERUTI $ 

5020 IFTI*=>"E"THENRETURN 

5060 PRINT>PRINT>PRINT"PREPRRER DISK"•GETR* = FR=FREC"" ) 

5063 F0RX=1T08>SS*=MID»<TI$,X.1>=IFSS*=" "THENSS*="-" 

5070 Sl$=Sl$+SS*îNEXTX 

5071 S3*=S1*+".BIN" 

5072 ILORDSSS 

5090 CLS > GOSIJB6500 ■ RETURN 

4) CATALOGUE DISQUETTE 

6000 REM CATALOGUE DISK 
6010 CL3= !CRT"" 

6020 PRINT■PRINT"RETOUR MENU/ PRESSER UNE TOUCHE"■GETRî=RETURN 

5) CHARGEMENT CODE MACHINE 

8000 ! LORD "rUSIC.BIN" 

8010 RETURN 
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SINGERIE 



Stéphane MASSART 


?(//% 


A vant de vous lancer dans la saisie de ce listing, 
reportez-vous au numéro 21 de THEORIC. Des con¬ 
seils y étaient dispensés : suivez-les I 
Après avoir tapé et éventuellement corrigé le pro¬ 
gramme Basic, sauvegardez-le sur une cassette. 

Tapez RUN pour implanter le code machine. 
Sauvegardez le code machine derrière le premier "mor¬ 
ceau" archivé précédemment (relire THEORIC... ) Les 
adresses de début et de fin sont données par les varia¬ 
bles A et F du programme Basic correspondant. 


Sauvegardez sur la cassette 
"code machine" les zones 
mémoire suivantes : 

CSAVE "SINGE3",A#4000, 
E#47FF 

CSAVE "SINGE4",A#4800, 
E#57FF 




10 A=#«X)0:F=W7FF:L=100;REPEAT:F0R A=A TO A+15:READ C$ 

20 K=VALCi'+C$l:S=S4K+65536*(S+«>65535):IF A<=f THEN POKE A,K 
30 ÆXTrREAD M:IF S=VALCf+D$) THEN L=L+5:UNT1L A>F:END 
40 PIN6:PRINT’Erreur ligne’;L 

100 DATA 20,20,20,20,20.20.20,20,20,20,20.20,20,20,20,20,0200 
105 DATA 16,00.20,20.20,20,20,20,20,01,FC,FC.FC,FC,FC.FC,08DF 
110 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC.FC,FC,20,20.20,160B 
115 DATA 20,20,20.20,20,20,20,20,16,00,20,20.20,20,20,20,17E1 
120 DATA 20,01, FC, 20,20,20,20,20.20,20,20,20.20,20,20,20,1A9E 
125 DATA 20,20.20.20,FC,20,20,20.20,20,20,20,20,20,20,20,1D7A 
130 DATA 16,00,62,63,64,03,51,52,53,01,FC,0B,53,2O,49,2O,2196 
135 DATA «.20,47,20,45,20,52,20,49,20,45,08,FC,20,20,41,2575 
140 DATA 42,43,44,45,20.20,20,20.16,00,65,66,67,01.54,55,28F5 
145 DATA 56.01,FC.0B.53,20.49,20,4£,20,47,20.45.20,52,20,2CDB 
150 DATA 49,20,45.08.FC,20,20.46,47,4B,49,4A.20,20.20.20.30B5 
155 DATA 16,00,68.69,6A,01,57,58,59,01,FC,20,20,20,20.20,34AC 
160 DATA 20,20,20.20,20,20,20.20.20.20,20,20.FC,20,20,4B,37B3 
165 DATA 4C,4D,4E,4F,20,20,20,20,16,01,FC,FC,FC,FC,FC,FC,3F68 
170 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC.FC,FC,FC,FC,FC,FC,4F28 
175 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,20,20,20,5C54 
180 DATA 16,00,20,20,20,20,20,20,20,20,20,20,20.20,20,20,5E2A 
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105 DATA 20,20,20,20,20,20,20,20.20,20,20,20,20,20,20.20.602A 
190 DATA 20,20,20,20,20,20,20.20,16,00,20,20,20.20,20,20,6200 
195 DATA 20,20,20,20.20.20,20.20,20,20,20,20.20,20,20,20,6400 
200 DATA 20,20.20,20,20,20,20,20,20,20,20.20,20,20,20,20,6600 
205 DATA 16,09,53,45,4C,A5,43,54,49,AF,AE,4£,45,5A,3A,20,6A0C 
210 DATA 2D,4E,42.20,44,45,20,54,4F,4E,4E,45,41,55,58,3A,6E3E 
215 DATA 20,3C,54,3E.20,31,20.20,16,09,20,20,20.20.20.20,7090 
220 DATA 20,20,20,20,20,20.20,20,20,20,20.20;20,20,20,20,7290 
225 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20.20,20.7490 
230 DATA 16,09,20,20,20,20,20.20,20,20,20,20,20,20,20,20,7670 
235 DATA 2D,56,49,54,45,53,53,45,20,20,20,20,20,20,20,3A,79E5 
240 DATA 20,3C,56,3E,20,31,20,20,16,09,20,20,20,20,20,20,7045 
245 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20.20,20,20,7E45 
250 DATA 20,20.20,20,20,20.20,20,20,20,20,20,20,20,20.20,8045 
255 DATA 16,09,20.20,20,20,20,20,20,20,20,20,20,20,20,20,8224 
260 DATA 20,42,52,55,49,54,41,47,45,2O,2O,2O,2O,2O,2O.3A,059E 
265 DATA 20,3C,42.3E,20,4F,20,20,16,09,20,20,20,20,20,20.8808 
270 DATA 20,20,20,20,20,20,20.20,20,20,20,20,20,20,20,20.8A08 
275 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20.8COa 
280 DATA 16,09,20,20,20,20,20,20.20,20,20,20.20,20,20,20,8DE7 
285 DATA 20,20,20,20,20,20,20.20.20,20.20,20.20,20,20.20,0FE7 
290 DATA 20,20,20.20,20,20,20,20,16,09,20,20,20,20.20,41,9187 
295 DATA 50,50,55.59,45,5A,20,53,55,52,20,45.53,50,41.43,967A 
300 DATA 45,20,50,4F,55,52,20,4A,4F,55,45,52,2E.20,20,20,9A5B 
305 DATA 16,09,20,20,20,20,20,20,20,20.20,20.20,20.20,20,9037 
310 DATA 20,20,20,20,20.20,20,20,20,20.20,20.20,20,20.20,9837 
315 DATA 20,20,20,20,20,20,20,20,16,09,20,20,20,20,20,20,A016 
320 DATA 20,20,20,20.20,20,20,20,20,20,20.20,20,20,20,20,A216 
325 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,A416 
330 DATA 16,09,20,20,20.20,20,20,20,20,20,20,20,20,20,20,A5F5 
335 DATA 20,20,20,20,20,20,20,20,20,20,20.20.20,20,20,20. A7F5 
340 DATA 20,20.20,20,20,20,20,20,16,09,20,20.20,20,20.20,A9D4 
345 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, ABD4 
350 DATA 20,20,20.20.20,04,0D,20,20,60,20,31,39,38,34,20,Ae3B 
355 DATA 16,00,20.20,20,20,20,20,20,20,20.20,20,20,20.20,8011 
360 DATA 20,20,20.20,20,20,20,20,20,20,20,20,20,20,20,20,8211 
365 DATA 20,20,20.20,20,20,20.20, lA, lA, lA. lA. lA,lA,lA,1A,B381 
370 DATA 1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,B581 
375 DATA 1A,1A,1A,1A,lA, lA,lA, lA, lA, lA, lA,lA, lA,lA,lA,1A,B721 
380 DATA 02,20,20,20,20.20,20,20,20,20,20,20.20,20.20,20,B903 
385 DATA 20,20,20.20,20.20,20,20,20,20, FC, FC, FC. 20,20.20, BD97 
390 DATA 2O,0C,06,5A,5B,5C,2O,2O.O2,2O,2O,a3,2O,2O,7D,7D,COB6 



395 DATA 7D,7D,7D,7D,7D,70,7D,7D,70,7D,7D,7D,7D,7D,7D,7D,C886 
400 DATA 7D,7D,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,20,CDD4 
405 DATA 02,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, CFB6 
410 DATA 20,20,20,20,20,20,20,20,20,20,FC,FC,FC,01,41,42,D468 
415 DATA 43,44,45,20,03,51,52,53,02,20.20,20,20.20.20,20,D735 
420 DATA 20,20,20.20,20,20,20,20,20,20,20,20,20,20,20,20,D935 
425 DATA 20,20,FC,FC,FC,01,46,47,48,49,4A,20,05,54,55,56,DeF6 
430 DATA 02,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,801)8 
435 DATA 20,20,20,20,20,20,20,20,20,20,FC,FC,FC,01,4B,4C,85A4 
440 DATA 4D,4E.4F,2O,O5,57,50,59,O2,2O.2O,2O,FC,FC,FC,3C,8B4D 
445 DATA 3D,3E,FC,20,20,20,20,20,20,20,20,20,20,20,20.20,8E64 
450 DATA 20,20,FC,FC,FC,7D,70,70,7D,7D,7D,3C,3D,38,7D,7D,F637 



460 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,FD05 
465 DATA 20,20,21,3C,3D,38,FC,FC,02,20,20,20,20,20,21,3C,0114 
470 DATA 3D,3E,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,20,0583 
475 DATA 20,20,20,20,20,20,20,20,20,20,21,3C.30,38,FC,FC,09F3 
400 DATA 02,20,20,20,20,20,21,3C,3D,3E,FC,FC.FC,FC,2O,2O,0F9D 
485 DATA 20,20,20.20,20,20,20,20,20,20,20,20,20,20,20,20,1190 
490 DATA 20,20,21,3C,3D,38,FC,FC,02,20,20,20,20,20,20,3C,15AB 
495 DATA 3D,3E,FC,FC,FC,FC,FC,20,20,20,20,20,20,20,20,20,1C32 
500 DATA 20,20,20,20,20,20,20,20,20,20,21,3C,3D,3E,FC,FC,2042 
505 DATA 02,20,20,20,20,20,20,3C,3D,3E,FC,FC,FC,FC,FC,FC,27A3 
510 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,29A3 
515 DATA 20,20,21,3C,3D,38,FC,FC,02,20,20,20,20,20,20,3C,2DB1 
520 DATA 3D,38,FC,FC,FC,FC,FC,FC,FC, 20,20,20,20,20,20,20,35F0 
525 DATA 20,20,20,20,20,20,20,20,20,20,21,3C.3D,'38,FC,FC,3A00 
530 DATA 02,20,20,FC,FC,FC,FC,3C,3D,38,FC,FC,FC,FC,FC,FC,HD1 
535 DATA FC,FC,FC,20,20,20,20,20,20,20,20,20.20,20,20,20,4965 
540 DATA 20,20,21,3C,3D,38,FC,FC,02,20,20,20,20,20,21,3C,4D74 
545 DATA 3D,38. FC,FC,FC,FC,FC, FC,FC, FC,FC,FC.20,20,20,20.5847 
550 DATA 20,20,20,20,20,20,20,20,20,20,21,3C,3D,38,FC,FC,5C57 
555 DATA 02,20,20,20,20,20,21,3C,3D, 38,20,20,20,20,20,20,5891 
560 DATA 20,FC,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,20,6401 
565 DATA 20,20,21,3C.3D,3E,FC,FC,02,20,20,20,20,20,21,3C.6810 
570 DATA 3D,38,20,20,20,20,20,20,20,20,FC,FC, FC, FC, 20,20,6DBB 
575 DATA 20,20,20.20,20,20,20,20.20,20,21,3C,3D,3E,FC.FC,71CB 
580 DATA 02,20,20,20,20,20,21,3C,3D,3E,20,20,20,20,20,20.7405 
585 DATA 20,20,20.FC,FC,FC,FC,20,20,20,20,20,20,20,20,20,7975 
590 DATA 20,20,21,3C,3D.3E,FC,FC,02,20,20,20,20,20,21,3C,7D84 
595 DATA 3D,38,FC,FC,FC,FC,20,20,20,20,20,20.FC,FC,FC,FC,869F 
600 DATA 20,20,20,20,20,20,20,20,20,20,21,3C,3D, 38, FC,FC,8AAF 
605 DATA 02,20,20,20,20,20,21,3C.30,38,FC,FC,FC,FC,FC,20,9135 
610 DATA 20,20,20,20,20,FC,FC,FC,FC,20,20,20,20,20,20,20,96A5 
615 DATA 20,20,21,3C,3D,38,FC,FC,02,20,20,20,20,20,21,3C,9AB4 
620 DATA 3D,38,FC,FC,FC,FC,FC,FC,20,20,20,20,20,20,FC,FC,A3CF 
625 DATA FC,FC,20,20,20,20,20,20,20,20,21,3C,3D,38,FC,FC,A997 
630 DATA 02,21,20,20,20,20,21,3C,30,3E,FC,FC,FC,FC,FC,FC,B{»^A 
635 DATA FC,20,20,20,20,20,FC,FC,FC,FC,FC,20,20,20,20,20,B822 
640 DATA 20,20,21.3C,3D,3E,FC,FC,02,21,20,20,20.20,20,3C,BC31 
645 DATA 3D,38,FC,FC,FC,FC,FC,FC,FC,FC,20,20,20,20,FC,FC.C704 
650 DATA FC,FC,FC,FC,20,20,20,20,20,20,20,3C,3D.38,FC,FC,C883 
655 DATA 02,21,62,63,64,20,20,3C,3D,3E,FC,FC,FC,FC,FC,FC,D6AE 
660 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,20,20,20,nDA 
665 DATA 20.20,20,3C,3D,38,FC,FC,O2,21,65,66,67,2O,2O,3C,E0BA 
670 DATA 3D,38,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,F6FD 
675 DATA FC,FC,FC,FC,FC,FC,20.20,20,20,20,3C,3D,38.FC,FC,0034 
680 DATA 02,39,68,69.6A,20,20,3C,3D.38.20,20,20.20,20,20,0361 
685 DATA 20,20,20,20,20,20.20,20,20,20,20.20.20,20,20,20,0561 
690 DATA 20,20,20,3C,3D,3E,3A,FC,02,70,7D,70,7D,7D,7D,7D,OE1B 
695 DATA 7T),70,7D,7D,7D, 7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,12EB 
700 DATA 70,7D,7D,7B,7D,7D,7D,71),7D,7D,7D,7D,7D,7D,7D,70,1ABB 
705 DATA 1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1C5B 
710 DATA 1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1DR 
715 DATA 1A,1A,1A,1A,1A,1A,1A,1A,02,OC,06,5A,SB,5C,08,01,1FF9 
720 DATA 41,42,43,44,45,02,FC,20,20,20,20,20,20.20,20,20,2366 
725 DATA 20,20,20,20,20,20,a),20,20,20,20,20,20,20,20,FC,2642 
730 DATA 02,20,20,20,20,20,20,01,46,47,48,49,4A,02,7D,7D,2969 
735 DATA 7D,7D,7D,70,7D,7D,7D,70,7D,7D,7D,7D,7D,7D,7D,70,3139 
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20 K=VALCI*+C$):S=S+K+65536#(S+K>65535):IF A<=F TÆN POKE A,K 
30 NEXT:!^ D$:IF S=VAL(*#’+M) THEN L=L+5:UMT1L A>F:END 
40 PING:PRINT‘Erreur ligne*;L 

100 DATA 7D. 7D, 70,20,20,20,3A, FC, 02,03,51,52,53,20,20,01,0449 
105 DATA 4B,4C,4D,4E,4F,02,FC,20,20,20,20,20,20,20,20,20,07E8 
110 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,3A,5E,FC,0B1C 
115 DATA 02,05,54,55,56,2Ü,20,02,FC,FC,FC,FC,FC,FC,FC,20,1360 
120 DATA 20,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,1A1B 
125 DATA 7D,7D,7D,7D,7D,7D,7D,7D,02,05,57,50,59,20,20,02,1F54 
130 DATA FC,3B,20,20,20,20,20,20,20,20,20,20,20,3A,FC,FC,241D 
135 DATA 20,20,20,20,20,20,20,20,20,20.20,20,20,20,20,FC,26F9 
140 DATA 02,FC,FC,FC,FC,3C,3D,3E,7D,7D,7D,7D,7D,3C,3D,3E,2EC:A 
145 DATA 7D,7D,7D,7D,7D,7D,7D,FC,20,20,20,20,20,20,20,20,3431 
150 DATA 20,20,20,20,20,20,20,FC,02,20,20,20,20,3C,3D,3E,3746 
155 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,3A,FC,3A3C 
160 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,FC,3D18 
165 DATA 02,20,20,7D,7D,3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,7D,42F3 
170 DATA 7D,7D,3C,3D,3E,7D,7D,7D,3C,3D,3E,FC,3C,3D,3E,FC,4981 
175 DATA FC,FC,FC,3C,3D,3E,FC,FC,02,20,20,20,21,3C,3D,3E,505E 
180 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,525E 
185 DATA 3C,3D,3E,20,20,20,20,20,20,20,20,3C,3D,3E,21,FC,55E9 
190 DATA 02,20,20,20,21,3C,3D,3E,20,20,20,20,20,20,20,20,5823 
195 DATA 20,20,20,20,20,20,20,20,3C,3D,3E,21,20,20,20,20,5A7B 
200 DATA 20,20,20,3C,3D,3E,21,FC,02,20,20,20,21,3C,3D,3E,5DE9 
205 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,5FE9 
210 DATA 3C,3D,3E,21,20,20,20,20,20,20,20,3C,3D,3E,21,FC,6375 
215 DATA 02 , 20 , 20 , 20 , 21 ,3C,3D,3E,20,20,2g,20,20,20,20,20,65AF 
220 DATA 20,20,20,20,20,20,20,20,3C,3D,3E,3A,3C,3D,3E,FC,6953 
225 DATA FC,FC,FC,3C,3D,3E,FC,FC,02,20,20,FC,7D,7D,7D,7D,7228 
230 DATA 7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7938 
235 DATA 7D,7D,7D,7D,3C,3D,3E,21,20,20,20,20,20,20,20,FC,7DEO 
240 DATA 02,20,20, FC, 3B, 20,20,20,20,20,20,20,20,20,20,20,80B9 
245 DATA 20,20,20,20,20,20,20,20,20,20,20,FC,3C,3D,3E,20,83EC 
250 DATA 2O,2O,2O,2O,2O,2O,2O,FC,D2,2O,2O,FC,FC,7D,7D,7D,0979 
255 DATA 7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D,7D,7D,9089 
260 DATA 7D,20,20,FC,3C,3D,3E,20,20,20,20,20,20,20,20,FC,94F5 
265 DATA 02,20,20,FC,FC, FC, FC, FC, FC, FC, FC,20,20,20,20,20,9DB7 
270 DATA 20,20,FC,FC,FC,FC,FC,FC,FC,20,20,FC,3C,3D,3E,20,A6EE 
275 DATA 20,20,20,20,20,20,20,FC,02,20,20,FC,FC,FC,FC,FC,ADF8 
280 DATA FC,20,20.20,20,20,20,20,20,20,20,FC,FC,FC,FC,FC,B520 
285 DATA 20,20,20.20,3C.3D,3E,20,20,20,20,20,20,20,20,3A,B791 
290 DATA 02,20,20, FC, FC, FC, FC, 20,20,20,20,20,20,20,20,20,BCE3 
295 DATA 20,20,20,20,FC,FC,FC,21,21,21,20,7D,7D,7D,7D,7D,C34B 
300 DATA 7D,7D,7D,7D,3C,3D,3E,FC,02,20,21,20,20,20,20,20,C7D5 
305 DATA 20,20.20,20,20,20,20,20,20,20,20,20,20,20,20,20, C9D5 
310 DATA 20,20,20,20,20,20,20,20,20,20,20,21,3C,3D,3E,FC,CD09 
315 DATA 02,20,21,20,20,20,20,20,20,20,20,20,20,20,20,20.CEEC 
320 DATA 20,20,20,20.20,20,20,20,20,20,20,20,20,20,20,20,DOEC 
325 DATA 20,20,20.21,3C,3D,3E,FC,02,20,21,20,20,20,20,20,D403 
330 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,D603 
335 DATA 20,20,20,20,20,20,20,20,20,20,20,21,3C,3D,3E,FC,D937 
340 DATA 02,20,21,20,20.20,20,20,20,20,20,20,20,20,20,20,DB1A 
345 DATA 2O,2O.2O,2O,2O,2O,2O,2O,7D,7D,7D,7D,2O,2O,2O,2O,DE0E 
350 DATA 20,20,20,20,3C,3D,3E,FC,02,20,21,62,63,64,20,20,E26D 
355 DATA 20,20,20,20,7D,7D,7D,7D,7D,7D,20,20,20,20,7D,7D,E755 
360 DATA 20,20,20,20,7D,7D,20,20,20,20,20,20,3C,3D,3E,FC,EB42 
365 DATA 02,3B,21,65,66,67,20,20,20,20,20,20,21,20,20,20.EE13 
370 DATA 20,20,20,20,7D,7D,20,20,20,20,20,20,20,20,7D,7D,F187 
375 DATA 20,20,20,20,3C,3D,3E,FC,02,7E,39,68,69,6A,20,20,F5EE 
380 DATA 20,20,20,20,21,20,20,20,20,20,20,20,20,20,20,20,F7EF 
385 DATA 20.20.20.20.20.20 . 20.20.20.20.20.20.3C.3D.3E.3A,FA60 


390 DATA 02,7D,7D,7D,7D,70,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,01B5 
395 DATA 7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,0985 
400 DATA 7D,7D,7D,7D,7D,7D,7D,7D,1A,1A,1A,1A,1A,1A,1A,1A.0E3D 
410 DATA 1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,117D 
415 DATA 06,FC,FC,38,20,20,20,20,20,20,20,20,20,20,20,20,1536 
420 DATA 20,20,20,20,20,20,20,20,FC,FC,20,OC,06,5A,5B,5C,1971 
425 DATA 20,20,20,20,20,20,20,20,06,FC,7D,7D,7D,7D,7D,7D,1E61 
430 DATA 7D,7D,3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,7D,20,20,20,245A 
435 DATA FC,FC,20,20,20,20,20,20,20,20,20,20,20,20,20,20,2812 
440 DATA 06,FC,FC,20,20,20,20,20,20,FC,3C,3D,3E,FC,20,20,2DBF 
445 DATA 20,20,20,FC,FC,2O,2O,2O,FC,FC,O3,51,52,53,2O,2O,33A0 
450 DATA 20,01,41,42,43,44,45,20,06,FC,FC,20,20,20,20,20,37D6 
455 DATA 20,20,20.20,20,20,20,20,20,20.20, FC, FC, 20,20,20,3B8E 
460 DATA FC,FC,05,54,55,56,20,20,20,01,46,47,48,49,4A,20,4073 
465 DATA 06,FC,20,20,20,20,20,20,20,20,20,20,20,20,20,20,4335 
470 DATA 20,20,20,20,20,20,20,3A,FC,FC,05,57,58,59,20,20,4794 
475 DATA 20,01,4B,4C,4D,4£,4F,20,06,FC,20,20,20,20,20,20,4B18 
480 DATA 20,20,20,20,20,20,20,20,20,20,20,7D,7D,7D,7D,7D,4£E9 
485 DATA 7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D,7D,FC,20,561B 
490 DATA 06.FC,3B,20,20,20.20,20,20,20,20,20,20,20,20,20,58F8 
495 DATA 20,20,20,20,20,20,FC,FC,FC,FC,FC,20,20,2g,3C,3D,5F7D 
500 DATA 3E,20,20,20,20,FC,FC,20,06,FC,7D,3C,3D,3E,7D,7D,6583 
505 DATA 7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,20,20,20,20,6B1F 
510 DATA 20,FC,FC,20,20,20.3C,3D,3E,20,20,20,20,FC,FC,20,70E6 
515 DATA 06,FC,FC,3C,3D,3E,21,20,20,20.FC,FC,FC,FC,21,3C,7869 
520 DATA 3D,3E,21,20,7D,7D,7D,'20,20,20,20,20,20,20,3C,3D,7BF5 
525 DATA 3E,20,20,20,20,FC,FC,20,06,FC,FC,3C,3D.3E,21,20,81C1 
530 DATA 20,20,FC,FC,FC,FC,21,3C,3D,3E,20,20,20,FC,FC,7D,899E 
535 DATA 7D,7D,3B,20,20,20,3C,3D,3E,20,20,20,3A,FC,FC,20,8E9C 
540 DATA 06,FC,FC,3C,3D,3E,21,20,20,20,FC,FC,FC,FC,21,3C,961F 
545 DATA 3D,3E,20,20,20,FC,FC,FC,FC,FC,7D,7D,7D,7D,7D,7D,9ED4 
550 DATA 7D,3C,30,3E,7D,7D,FC,20,06,FC,21,3C,3D,3E,20,20,A438 
555 DATA 20,20,FC,FC,FC,FC,21,3C,3D,3E,20,20,20,FC,FC,FC,AC94 
560 DATA FC,FC,FC,20,20,20,20,20,21,3C,3D,3E,21,FC,FC,20,B339 
565 DATA 06,FC,21,3C,3p,3E,20,20,20,20,FC,FC,FC,FC,21,3C,B9ED 
570 DATA 3D,3E,20,20,20,FC,FC,FC,FC,FC,FC,20,20,20,20,20,C143 
575 DATA 21,3C,3D,3E,21,FC,FC,20,06,FC,21,3C,3D,3E,20,20,C66E 
580 DATA 20,20,FC,FC,FC,FC,21,3C,3D,3E.7D,7D,7D,7D,FC,FC,CF62 
585 DATA FC,FC,FC,20,20,20,20,20,21,3C,3D,3E,21,FC,FC,20,D607 
590 DATA 06,FC,3B,3C,3D,3E,20,20,20,20,20,3A,5E,5E,21,3C,D9EE 
595 DATA 3D,3E,21,20,20,FC,FC,FC,20,20,20,20,20,20,20,20,DEBE 
600 DATA 21,3C,3D,3E,21,FC,FC,20,06,FC.7D,7D,7D,7D,7D,3C,E57E 
605 DATA 3D,3E,7D,FC,FC,FC,21,3C,3D,3E,20,20,20,FC,FC,FC,ED96 
610 DATA 20,20,20,20,20,20,20,20,21,3C,3D,3E,21,FC,FC,20,F1A7 
615 DATA 06,FC,FC,20,20,20,21,3C,3D,3E,FC,FC,FC,FC.21,3C,F92A 
620 DATA 3D,3E,20,20,20,FC,FC,FC,20,20,20,20,20,20,20.20,FDF9 
625 DATA 21,3C,3D,3E,21,FC,FC,20,06,FC,FC,20,20,20,21,3C,03C5 
630 DATA 3D,3E,FC,FC,FC,FC,21,3C,3D,3E,20,20,20,FC,FC,FC,OC5C 
635 DATA 3C,3D,3E,20,20,20,20,20,20,3C,3D,3E,21,FC,FC,20.10C3 
640 DATA 06,FC,FC,20,20,20,21,3C,3D,3E,FC,FC,FC,FC,21,3C,1B46 
645 DATA 3D,3E,7D,7D,7D,7D,FC,FC,3C,3D,3E,20,20,20,20,20,1E04 
650 DATA 20,3C,3D,3E,21,FC,FC,20,06,FC,FC.20,20.20.21,3C.23CF 
655 DATA 3D.3E,FC,FC,FC,FC,21,3C,3D,3E,21,20,20,20,20,20,2903 
660 DATA 3C,3D.3E,20,20,20,20,20,20,3C,3D,3E,21,FC,FC,20,2E3A 
665 DATA 06,FC,20,20,20,20,20,3C,3D,3E,FC,FC,FC,FC,21,3C,34EO 
670 DATA 3D,3E,20,20,20,20,20,20,3C,3D,3E,20,20,20,20,20,3772 
675 DATA 20,3C,3D,3E,3A,FC,FC,20,06,FC,20,62,63,64,20,3C,3D42 
680 DATA 30,3 E,FC,‘fC,FC,FC,21,3C,3D,3E,20,20,20,20,20,20,4345 
685 DATA 3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,FC,20,4A77 
690 DATA 06,FC,20,65,66,67,20,3C,3D,3E,FC,FC,FC,FC.21,3C,51EF 
695 DATA 3D,3E,20,20,20,20,20,20,3C,3D,3E,20,20,20,20,20,5481 
700 DATA 20,20,20.20,20,FC,FC,20,06,FC,39,68,69,6A,20,3C,5AOB 
705 DATA 3D,3E,20,20,20,20,21,3C,3D,3E,20,20,20;20,20,20,5C9E 
710 DATA 3C,3D,3E,20,20,20,20,20,20,20,20,20,3A,FC,FC,20,60C7 
715 DATA 06,FC,70,70,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,689F 
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720 DATA 7D,7D,7D,70,7D,7D,7D,7D,7D,7D,70,7D,70,7D,7D,7D,706F 
725 DATA 7D,7D,7D,7D,7D,7D,FC,20,06,FC,FC,20,20,20,20,20,7717 
730 DATA 20,20,FC,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,7C87 
735 DATA 20,20,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,20,89B3 
740 DATA A0,7C,Bl,00,A0,54,ll,00,A0,2C,ll,00,C9,2O,6O,AO,8F4B 
745 DATA 78,Bl,00,AO,50,11,00,AO,28,11,00,C9,20,60,BI,00,9440 
750 DATA C8,ll,00,C8,11,00,C9,20,60,85,07,86,07,20,1E,50,98£A 
755 DATA C8,11,00,A4,07,11,00,A4,07,11,00,C9,20,60,AO,2C,9D50 
760 DATA A9,20,91,00,AO,54,91,00,AO,7C,91,00,60,AO,28,A9,A3AD 
765 DATA 20,91,00.A0,50,91,00,A0,78,91,00,60,20,95,53,91,A971 
770 DATA 00,C8,91,00,60,85,06,86,07,20,EA,51,C8,91,00,A4,AF9A 
775 DATA 06,91,00,A4,07,91,00,60,18,65,00,85,00,8A,65,01,B3BF 
780 DATA 85,01,60,AO,49,B1,06,99,OF,B7,88,DO,FB,60,A2,62,!B5B 
785 DATA A0,29,20,9C,50,AO,51,20,9C,5O,A0,79,A9,O3,85,FF,C273 
790 DATA 8A,91,0O,E8,C8,C6.FF,D0,F7,6O,A2,62,AO,29,2O,B8,CBCF 
795 DATA 50,AO,51,2O,B8,5O,A0,79,A9,03,85,FF,8A,Dl,0O,F0,D3CC 
800 DATA 05,4C,07,59,EA,EA,E8,C8,C6,FF,D0,F0,60,A9,FF,85,DE13 
805 DATA 09,20,OF,50,FO,01,60,C6,05,A5,05,C9,FF,FO,12,OA,E435 
810 DATA AA,!D,6C,63,85.06,BD,6D,63,85,07,20,83,50,4C,6D,EABB 
815 DATA 53,A5,00,DO,02,C6,01,C6,00,20,3E,50,A9,05,B5,05,EFFB 
820 DATA 2O,DF,5O,4C,0£,5O,A9,DO,B5,O9,2O,OO,5O,FO,O1,6O,F569 
825 DATA 86,05,A5,05,C9,06,FO,12,OA,AA,BD,60,63,85,06,BD,FC4E 
830 DATA 61,63,85,07,20,83,50,4C,6D,53,E6,00,DO,02,E6,01,0239 
835 DATA 20,4D,50,A9,00,85,05,20,18,51,4C,8E,50,A9,2C,A2,0753 
840 DATA 54,AO,01,20,29,50,FO,03,60,EA,EA,A9,D9,A2,FF,20,OF4B 
845 DATA 78,5O,A0,AO,A2,7B,A9,50,20,65,50,20,OA,51,4C,BE,1590 
850 DATA 50,A9,28,A2,50,AO,00,20,29,50,FO,03,60,EA,EA,A9,1CAC 
855 DATA D7,A2,FF,20,78,50,AO,A2,A2,7C,A9,54,20,65,50,20,245E 
860 DATA Dl,5O,4C,8E,50,A9,54,A2,7C,AO,Al,20,29,50,F0,03,2B91 
865 DATA 60,EA,EA,A9,29,A2,00,20,78,5O,A0,00,A2,50,A9,28,32B4 
870 DATA 20,65,50,20,OA,51,4C,8E,5Q,A9,50,A2,78,A0,AO,2O,3871 
875 DATA 29,50,F0,03,6O,EA,EA,A9,27,A2,00,20,78,5O,AO,02,3F0D 
880 DATA A2,54,A9,2C,20,65,50,20,D1,50,4C,BE,50,A6,08,CA,4590 
885 DATA 86,08,80,07,90,0A,A5,09,F0,03,4C,61,51,4C,3D,S1,4B18 
890 DATA A5,O9,F0,O3,4C,A9,51,4C,85,51,A9,2O,4C,5F,5O,AO,5185 
895 DATA 29,2O,00,52,A0,51,20,00,52,AO,79,20,00,52,A0,A1,564F 
900 DATA A9,3C,91,00,C8,A9,3D,91,00,Cfl,A9,3E,91,00,60,20,5CC4 
905 DATA 8E,50,AO,A1,20,9C,50,A5,FE,OA,AA,BD,5E,5F,85,06,644B 
910 DATA BD,5F,5F,85,07,A0,61,B1,06,99,0F,B7,88,D0,FB,60,6C19 
915 DATA AD,08,02,C9,9C,DO,36,A5,FE,C9,O4,F0,05,E6,FE,4C,74DQ 
920 DATA 17,52,AO,01,2O,lE,5O,DO,ll,2O,EF,51,A9,88,A2,FF,7B7B 
925 DATA 20,78,50,A9,00,85,FE,4C,aB,53,A9,De,A2,FF,20,78,8373 
930 DATA 50,AO,C9,20,00,52,A9,01,B5,FE,4C,OF,52,C9,B4,DO,8AC5 
935 DATA 28,A5,FE,C9,01,FO,05,C6,FE,4C,17,52,AO,C9,20,1E,926F 
940 DATA 50,C9,3F,FO,01,60,A9,28,A2,00,20,78,50,AO,01,20,9834 
945 DATA 00,52,A9,O4,a5,FE,4C,0F,52,C9,BC,DO,16,20,00,50,9E3E 
950 DATA EA,FO,01,60,20,EF,51,A9,03,A2,00,20,78,50,4C,53,A4AE 
955 DATA 52,EA.EA,C9,AC.DO,EC,20,0F,50,EA,D0,E6,20,F,51,AEB4 
960 DATA A9.FD.A2,FF,20,7B,50,4C,53,52,EA,EA,A5,FE,FO,03,B80E 
965 DATA 4C,3O,52.A5,O8,F0,03,4C,CD,51,A0,A1.20,lE,50,D0,B£85 
970 DATA OF,A9,28,A2,00,20,78,50,AO,01,20,5C,50,4C,8E,50,C386 
975 DATA AD,O0,O2,C9,B4,DO,O5,A9,OA,85,O8,6O,C9,BC,DO,1F,CA73 
980 DATA 20,00,50,C9,3C,FO,03,4C,06,51,A2,03,E6,00,DO,02,CFDB 
985 DATA E6,01,20,4D,50,CA,D0,F4,A9,01,85,FE,4C,B2,53,C9,D854 
990 DATA AC.DO,21,20,0F,50,C9,3E,F0,03,4C,C0,5O,A2,03,A5,DFlD 
995 DATA OO.DO,02,C6,01,C6,00,20,3E,50,CA,DO,F2,A9,01,85,E5E5 
1000 DATA FE,4C,B2,53,C9,B4,FD,01,60,AO,C9,20,BC,53,C9,3C,EE9F 
1005 DATA D0,F6,A9,20,AO,29,2O,5C,50,A0,51,20,5C,50,A0,79,F599 
1010 DATA 20.5C,50.A9,78,A2,00,20,78,50,4C,AB,53,A5,05,FO,FBF4 
1015 DATA O5,C9,O3,FO,O1,6O,A2,A0.AO,56,4C,1O,5A,A2,B6,AO,O3O4 
1020 DATA 56,4C,10,5 A,'eA,A 9,20,91,00,C8,60,A5,09,DO,OE,A9,09B1 
1025 DATA FF,85,06,A9,5F,B5,07,20,83,50,4C,8E,50,A9,AF,85,10C9 
1030 DATA 06,A9,61,85,07,20,83,50,4C,8E,50,A9,04,B5,FE,4C,16FE 
1035 DATA 0F,52,A9,D8,A2,FF,2O,78,50,4C,0F,52,Bl,0O,C8,31,lDC0 
1040 DATA 00,C8,31,00,60,8A,48,BD,05,70,91,00,E8,C8,CO,2C,244A 
1045 DATA DO,F5,68,AA,6O,8A,40,B1,OO,9D,O5.7O,E8,C8,CO,2C,2CB2 


1050 DATA D0.F5,68,AA,6O.A0,29,A9,5F,91,0O,C8,A9,6O,91,0O,34AD 
1055 DATA C8,A9,61,91,0O,60,A0,2A,BD,03,70,D0,0A,A9,23,91,3BAl 
1060 DATA 00,C8,A9,24,91,00,60,A9,25,91,00,C8,A9,26,91,00,41AE 
1065 DATA 60,BD,02,70,DO,03,4C,14,55,AO,52,B1,00,C9,70,FO,489E 
1070 DATA 0B,C9,3C,FD,07,C9,3E,F0,03,4C,7D,58,BD,02,70,C9,4FB8 
1075 DATA 01,FO,48,BD,03,70,DO,05,A9,01,4C,75,54,AO,29,B1,562F 
1080 DATA 0O,C9,24,F0,0F,C9,26,F0,OB,C9,61,F0,07,C9,39,F0,5E18 
1085 DATA 03,4C,57,54,4C,68,55,C9,3B,DO,06,A9,01,9D,02,70,63A£ 
1090 DATA 60,AO,2A,20,C5,53,A5,00,DO,02,C6,01,C6,00,AO,2A,69DE 
1095 DATA 20,D5,53,A9,00,9D,03,70,4C,F6,53,BD,03,70,FO,05,7099 
1100 DATA A9,00,4C,75,54,AO,2C,B1,00,C9,23,FO,OB,C9,25,FO,7799 
1105 DATA 07,C9,5F,F0,03,4C,9B,54,4C,68,55,C9,3A,D0,06,A9,7E81 
1110 DATA 02,9D,02,70,60,AO,2A,20,C5,53,E6,00,DO,02,E6,01,8493 
1115 DATA A0,2A,20,D5,53,A9,01,4C,75,54,C9,20,D0,17,A0,2A,8AFE 
1120 DATA 20,C5,53,A9,28,A2,00,20,7B,50,AE,00,04,AO,2A,20,902D 
1125 DATA D5,53,4C,F6.53,C9,3D,F0,14,C9,3A,F0,O8,A9,01,9D,9836 
1130 DATA 02,70,4C,A5,54,A9,02,9D,02,70,4C,61,54,A9,02,BD,9D£0 
1135 DATA 3B,55,AD,71,02,D0,03,4C,2C,54,A9,00,90,02,70,A0,A387 
1140 DATA 2A,20,C5,53,A9,28,A2,00,20,78,50,AE,00,04,20,09,A8ÊF 
1145 DATA 55,4C,E5,53,AO,51,Bl,00,C9,23,F0,42,C9,24,F0,3E,B0A3 
1150 DATA C9,25,FO,3A,C9,26,FO,36,C8,CO,54,DO,E9,AO,52,B1,BA08 
1155 DATA 00,C9,7D,DO,12,AO,29,20,C5,53,A9,01,9D,02,70,AO,C08A 
1160 DATA 2A,20,D5,53,4C,F6,53,AO,29,20,C5,53,A9,2B,A2,00,C705 
1165 DATA 20,78,50,AE,00,04,AO,29,20,D5,53,4C,E5,53,A9,FF,CDDC 
1170 DATA 90,02,70,AO,29,4C,C5,53,A9,F,9D,02,70,AO,2A,4C,D4E5 
1175 DATA CS,53,A9,00,8D,01,04,0A,0A,QA,AA,8D,00,04,BD,02,D950 
1180 DATA 70,C9,FF,FO,1A,BD,00,70,85,00,BD,01,70,85,01,20,8018 
1185 DATA ll,54,A5,00,9D,00,70,A5,01,9D,01,70,4C,CF,55,A0,E5F3 
1190 DATA 0O,A9,20,19,4E,BC,C8,CO,06,DO,F8,C9,20,DO,20,A9,EDB9 
1195 DATA Q2,9D,02,70,A9,01,9D,03,70,A9,2A,B5,00,9D,00,70,F2E9 
1200 DATA A9,BC,85,01,9D,01,70,A0,2A,2O,D5,53,20,F6,53,AC,FA09 
1205 DATA 01,04,C8,9B,C9,02,DO,9C,60,AO,29,4C,D5,53,A9,05,OOFO 
1210 DATA 85,F,8A,99,07,BC,EB,C8,C6,F,DO,F6,60,AO,00,20,OAB5 
1215 DATA DE,55,AO,2B,20,DE,55,AO,50,4C,DE,55,F,00,F,00,1270 
1220 DATA 20,72,55,AD,02,04,00,OE,AD,76,02,A2,2B,C5,00,90,182C 
1225 DATA 02,A2,41,20,64,56,CE,02,04,A2,05,20,75,57,AD,04,1D03 
1230 DATA 04,85,00,40,05,04,85,01,20,93,58,AD,OB,02,20,CC,2176 
1235 DATA 52,A5,00,8D,04,04,A5,01,BD,05,04,20,B7,57,AD,51,266A 
1240 DATA BC,C9,69,F0,0I),A2,10,AO,O0,B8,DO,FD,CA,DO,Fe,4C,2FDA 
1245 DATA B8,58,4C,DO,6C,A9,05,85,FF,8A,99,07,BC,EB,C8,C6,3900 
1250 DATA F,D0,F6,60,AO,00,20,55,56,A0,28,20,55,56,40,50,4013 
1255 DATA 4C,55,56,C9,62,F0,0B,C9,63,FO,O7,C9,64,F0,03,4C,47BF 
1260 DATA EA,54,4C,2C,S4,BA,8E,10,04,A9,1A,8D,6F,02,20,23,4CF9 
1265 DATA 58,A9,00,8D,20,04,20,00,6C,20,5C,58,EE,20,04,AD,51CA 
1270 DATA 20,04,C9,08,00,80,60,00,00,00,40,01,00,00,00,38,5558 
1275 DATA 10,10,00,40,00,04,20,00,00,00,00,00,00,38,10,00,5690 
1280 DATA 00,40,00,00,00,00,00,00,00,00,00,38,09,09,00,20,5794 
1285 DATA 00,00,00,00,F,00,F,00,F,00,F,00,F,00,F,00,5D94 
1290 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,658C 
1295 DATA F,00,F,00,F,00,F,00,FF,00,F,00,FF,00,F,00,6084 
1300 DATA AO,00,B1,60,91,64,86,60,00,02,86,61,45,61,C5,63,75B7 
1305 DATA DO,07,A5,6a,C5,62,D0,01,60,E6,64,D0,O2,E6,65,4C,7D9E 
1310 DATA 02,57,00,66,00,69,00,B5,00,69,00,6C,00,B9,00,5B,8164 
1315 DATA 38,5F,80,BB,A2,00,BD,22,S7,95,60,E8,EO,06,00,F6,8997 
1320 DATA 20,00,57,A2,00,BD,28,57,95,60,E8,EO,06,DO,F6,20,9095 
1325 DATA 00,57,A2,00,BD,2E,57,95,60,E8.EO,06,DO,F6,4C,00,97A5 
1330 DATA 57,BD,a,BF,C9,39,FO,04,FE,C3,BF,60,49,30,9D,a,A144 
1335 DATA BF,CA,4C,61,57,B0,Dl,BF,C9,3O,F0,04,DE,Dl,BF,60,AAOF 
1340 DATA A9,39,9D,D1,BF,C4,D0,ED,A2,30,4C,70,5A,20,8E,50,B35B 
1345 DATA AO,00,B9,60,65,99,10,B7,C8,CO,49,DO,F5,A9,F,80,BCA4 
1350 DATA 76,02,AD,76,02,D0,FB,CE,DF,BF,AD,DF,BF,C9,30,D0,C68C 
1355 DATA 03,4C,6A,58,4C,QD,SB,A5,FE,F0,01,60,40,A2,B1,00,CD35 
1360 DATA C9,23,FO,OE,C9,24,FO,OA,C9,25,FO,06,C9,26,FO,02,D4CB 
1365 DATA 60,EA,20,EB,58,A2,04,4C,61,57,20,16,54,20,52,57,DA7B 
1370 DATA A9,BE,A2,F8,8D,05,04,88,04,04,A0,00,98,0A,0A,0A,DFFE 
1375 DATA AA,A9,F,9D,02,70,A9,01,9D,03,70,C8,CO,20,DO,EC,EB70 
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A SUIVRE 








SWêP WfULAY 

Philippe COUTON 


/ I arrive souvent, lorsque Ton achète un logiciel du 
commerce, que celui-ci utilise la page 4 de la 
mémoire pour loger une routine en langage 
machine. C'est très gênant pour utiliser un lecteur de dis¬ 
ques par la suite ou lorsque l'on veut utiliser le logiciel 
avec un lecteur. 

Je vous propose une routine qui pallie à ce défaut. En 
effet, cet utilitaire permet d'utiliser deux programmes 
différents en langage machine implantés dans la page 4. 


Voyons d'abord son principe : il 
est très simple. Il s'agit de stoc¬ 
ker le programme en attente dans 
une page inutilisée du DOS, dans 
la RAM Overlay pendant que le 
programme actif travaille dans la 
page 4, et de les échanger au 
moment opportun. 

Passons son fonctionnement en 
revue, si vous le voulez bien. Il est 
à noter que le listing fourni est 
prévu pour un lecteur JASMIN, 
mais il devrait être adaptable pour 
un MICRODISC, si l'on connaît la 
structure du DOS (voir THEORIC 
n° 8, page 40). 

Il s'agit d'effectuer un SWAP 
entre la page 4 et une autre zone 
de la mémoire, dans la RAM 
Overlay pour le DOS, dans la 
RAM normale pour le programme 
à utiliser. L'utilitaire est entière¬ 
ment relogeable. 

Prenons la situation suivante ; 
l'utilitaire est logé en $9E00 et le 
programme à implanter en page 
4 est d'abord chargé à l'adresse 
$7900. Nous allons d'abord sau¬ 
ver le DOS en Overlay, puis pla¬ 
cer le programme dans la page 4. 
Suivons le programme mainte¬ 
nant. INTER et SELECT sont les 
adresses qui permettent de choi¬ 
sir la RAM normale ou Overlay, 
et couper les interruptions en pro¬ 
venant du clavier. PROG est 
l'adresse où est implanté le pro¬ 


gramme à placer en page 4, BUF- 
FER est la zone en Overlay où 
sera stocké le programme en 
attente et OVER! l'adresse de 
stockage en Overlay de la com¬ 
mande du "I". 

RAM mémorise l'adresse du pro¬ 
gramme à placer en page 4 en 
vue du transfert. OVER sélec¬ 
tionne la RAM Overlay. Ensuite, 
SWAP! fait l'échange du contenu 
de #2F5-#2F6, puis mémorise 
l'adresse de stockage en RAM 
Overlay. Nous arrivons à SWAP 
qui fait l'échange proprement dit 
entre la page 4 et la zone sélec¬ 
tionnée. Pour terminer, ROM 
replace ou laisse la mémoire dans 
sa configuration normale. 

Il aurait.été possible d'effectuer 
la dernière partie en cas d'accès 
à la RAM Overlay seulement, 
mais cela aurait rallongé la routine 
pour ne gagner que très peu de 
temps. En $9E04, la solution 
CLC BCC a été préférée à un 
JMP pour rendre la routine relo¬ 
geable. 

Son mode d'emploi est simple, 
mais il faut respecter l'ordre de la 
mise en place. Un tableau vous 
aidera à aisir le déroulement. 

— Chargement des divers pro¬ 
grammes : Basic, Swap, Pro¬ 
gramme, L.M. 

— Call OVER sauve le 
DOS-(-$2F5 en Overlay. 


— Call RAM : place le pro¬ 
gramme en page 4. 

Tout est prêt, on peut lancer le 
programme Basic. Pour un accès 
disque : 

— Call OVER ; sauve le pro¬ 
gramme et ramène le DOS, 
swape $2F5. 

— Accès disque. 

— Call OVER : sauve le DOS et 
ramène le programme, swape 
$2F5. 


NOTE : la zone du DOS 
($FC00-$FD01 ) sert normale¬ 
ment de buffer aux fichiers 
ouverts. Il n'est pas recommandé 
d'utiliser cette routine avec un 
programme qui utiliserait des 
fichiers. On ne devrait pas ren¬ 
contrer ce cas, car si on utilise ce 
programme avec les cassettes du 
commerce, il est rare qu'elles fas¬ 
sent appel à des fichiers disque ! 
Pour les lecteurs qui ne sont pas 
habitués à ASDESAS, "LDY 
# -i-PROG" signifie : charger Y 
avec l'octet de poids fort de 
PROG. 

Je souhaite que cette routine 
vous évite bien des désagré¬ 
ments, et ouvre peut-être des 
horizons nouveaux dans l'utilisa¬ 
tion de la RAM Overlay. Il reste 
tant de choses à découvrir de ce 
côté... 
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Gilles BOUSSARD 


A h, les vacances ! Oui, mais les kilos en trop... Vous 
connaissez cette pub célèbre pour une eau miné¬ 
rale ? Bien... THEORIC apporte sa contribution à vos 
efforts avec cet excellent logiciel qui, outre son intérêt 
pratique offrira de bonnes notions de diététique à l'uti¬ 
lisateur néophyte. 


Ce programme de 26 kilo-oct-ets 
environ est à la fois un logiciel 
éducatif et pratique. Il va vous 
permettre de vous familiariser 
avec la diététique et ainsi vous 
permettre de mieux vous alimen¬ 
ter. Il est conseillé, mais non 
indispensable, d'utiliser un moni¬ 
teur couleur. 

Il est composé de quatre grandes 
parties : la première est un mini¬ 
cours de diététique vous permet¬ 
tant de mieux comprendre les 
bases de cette science et vous 
donnant quelques (bons) con¬ 
seils, la deuxième 


faire un bilan détaillé de votre cas 
personnel, la troisième, vous per¬ 
met d'établir des menus équili¬ 
brés grâce à ses 80 plats diffé¬ 
rents se combinant à l'infini. 
Enfin, la quatrième partie 
vous permet d'évaluer 
votre dépense journa 
lière en colonnes, en 
fonction de votre 
activité. 

De plus, vous pou¬ 
vez avoir les diffé¬ 
rents bilans de 
l'ordinateur sur 

_ tr _ . .. 


(fonction LPRINT incorporée au 
programme). 

Ecrit entièrement en Basic, il est 
totalement compatible'ORIC-1/ 
ATMOS hormis la ligne 6250. 
Toutes les instructions nécessai¬ 
res au bon fonctionnement du 
programme sont incorporées. 
Bref, un logiciel à posséder à tout 
prix entre le livre de recettes de 
cuisine et le robot mixer ! 

Bon appétit et bonne frappe (du 
programme !). 
















10 REM ♦•»•♦♦♦♦♦♦*♦♦♦ 

20 REM * ♦ 

30 REM ♦ DIETETIC ♦ 

40 REM * ♦ 

50 REM ♦♦*«♦♦♦♦*♦♦♦ 

60 REM 

70 REM Par Boussard qilles (11/85) 

80 REM 

100 REM-REDEF CARACTERES- 

105 REM 

106 TEXT 

110 A»="_':60SUB140 
120 At=‘*':50SUB140 
130 A*='#':60SUB140 
135 SOT0145 

140 F0R1=0T07;READD:P0KE46080+(8*ASC( 
A$))+I.D:NEXT 
142 REIURN 

145 F0RI=46464T046543:READD:POKEI.D:N 
EXT 

150 DATA42,42,42,62,28,08,08,08 
152 DATA12,12,12,12,12,08,08,08 ’* 

154 DATA28,28,28,28.28,08,08,CI8 ’# 

156 DATA28,34,34.00.34,34,28,00 ’O 
158 DATA02,02.02,00.02,02,02,00 ’l 
160 DATA28,02.02,28,32,32,28,00 ’2 
162 DATA28,02,02,28,02,02,28,00 ’3 
164 DATA34,34.34,28,02,02,02,00 ’4 
166 DATA2B,32,32,28,02,02,28.00 ’5 
168 DATA28,32,32,28.34,34,28,00 ’6 
170 DATA28.02,02.00.02,02,02,00 ’7 
172 DATA2B,34,34,28,34,34,28,00 ’8 

174 DATA28,34,34,28,02,02,28,00 ’9 

175 REM 

180 REM-GENERIQUE 

185 REM 

190 TEXT:aS:PAPERO:C=l 


195 POKE#26A,10:POKE#2OC,127;P0KE48O3 
5,0 

197 PLAY5,0,0,0 

200 F0RI=OT025;PL0Tl,I,C;PL0T2,I,*Ed. 
SORACON* 

205 C=C+1:IFC>7THENC=1 
207 S0UND1,4*I,12:S0ÜND3,20*I,8 
210 NEXT:S(iUND3,0,0:PLAY0,0,0,0 
215 PL0T21,13,3:PL0T22.13,12 
220 PL0T23,13,'PRESENTE' 

225 MAIT300:aS;INKl:FORI=lT07;PRlNT: 
NEXT 

230 PRINTCHR$(4):PRINTCHRi(27):PRINT' 
J DIETETIC 

235 PRINTCHR$(4):FORI=1T010:PRINT;NEX 
T 

240 PRINT:PRINTCHR$(27)!PRINT'B E 
crit et réalisé par BGP' 

242 WAIT300 

245 PLAY1.0,0,0:F0RI=OT034 
250 PL0TI,09,10:PL0TI+l,09,l:PL0TI+3, 
09, 

255 PL0TI,10,10:PL0TI+l,10,l:PL0Tl+3, 
lO,*#*.' 

260 UÂITIO 

265 PLOTI+3,09,* •:PL0TI+3,10,' ' 


267 MUSICl,3,INT(I/3)+l,12 

270 NEXT 

271 PLAYO,0,0,0 

272 HA1T100:60T0330 
275 REM 

277 REM-TEST CLAVIER- 

279 REM 


280 PL0T2,25,6:PL0T3,25,' - Tapez R , 



S ou C;GETC$ 

281 IFASC(C$)=99THENRETURN 
283 IFASC(C$)=114THENRETURN 
285 IFASC(Ci)=115THENG0T0490 
287 IFASC(C$)<>990RASC(C*)<>1140RASC( 
C$)<>115THENG0T0289 
299 Ci='f 

291 CLS:PL0T12,13,'CHOIX INCORRECT' 

292 ZAP 

293 PL0T14.15,'RECOMMENCEZ' 

295 UAIT250:RETURN 

325 REM 

330 REM-MENU- 

331 REM 

335 aS:PAPER6:INK4 
340 PL0T9,3,'Bonjour cher(e) aai(e)' 
345 PRINT;PRINT:PRINT:PRINT 
350 PRINT:PRINT' Grâce a ce programme 
.vous allez pou-' 

360 PRINT:PRINT'voir faire plus an 
pie connaissance' 

370 PRINT:PRINT'avec la dietetique, 
et par delà ces' 

380 PRINT:PRINT'calculs et ces chi 
ffres essayer de' 

390 PRINT;PRINT'mieux vous alimente 
r, de mieux vous' 

400 PRINT:PRINT'connaitre afin de nie 
ux vous porter.' 

405 PL0T2.25,'Tapez sur une touche po 
ur continuer.':GETC$:CLS 

409 Cl$=' -> Pour revenir au menu tap 
ez M' 

410 PRINTrPRINT' Mais si par hasard 
les calculs de ' 

420 PRINTiPRINT'l’ ordinateur ne corr 
espondaient pas' 

430 PRINTiPRINT'avec votre cas person 
nel.ne vous de-' 

440 PRINTrPRINT'solez pas"" 

450 PRINTrPRINT' On peut etre par 
faitement bien' 

460 PRINTiPRINT'dans sa peau avec que 
Iques kilos en' 

470 PRINT:PRINT*trop...(ou en moins!) 
480 PL0T2,25,"Tapez sur une touche po 
ur continuer.' 

485 GETA$ 

490 aS;INK2:PAPER0 
495 PRINT 
500 PR INT 

510 F0RI=lT023:PRINT'f 

«■ 

515 NEXT 

520 PRINT't 


30 
















530 PLOT 5,3,'Vous avez le choix entr 
e:* 

535 PL0T4,3,3:PL0T36,3,2 

540 PL0T12,6,'l- On lini cours de' 

550 PL0T14,8,'dietetiQue.' 

560 PL0T12,10,'2- L’etude de votre' 
570 PL0T14,12,'cas personel.' 

580 PL0T12,14,'3- L’etablissewent de' 
590 PL0T14,16,'tenus équilibrés' 

595 PL0T12,18,'4- Votre consoiwnation' 
597 PL0T14,20,'calories/activites' 

600 PL0T3,23,'-TAPEZ LE No PRECEDANT 
VOTRE CHOIX' 

602 I=2:F0RK=6T020:PL0T36,K,2;NEXT 
604 REPEAT 

606 1=1+4:IFI>18THEN1=6 
608 C»=KEY$:F0RJ=IT01+2:PL0T8,J,6:NEX 
T:PL0T9,I,'->':HAIT25 
610 F0RJ=IT0I+2:PL0T8,J.2:NEXT:PL0T9, 

I,' • 

612 UNTILC«<>" 

620 IFASC(C»)<490RASC(C«)>52THENGOSUB 
291:6010490 
622 PIN6:PIN6 
625 IFCi='l'THEN650 
630 IFC»='2'THEN3000 
635 IFC«='3'THEN4500 
640 IFC$='4'THEN7000 
650 REM 

660 REM-TABLEAU 1- 

670 REM 

680 aS:PAPER0:INK2:PIN6 
685 PL0T0,2,5 

690 PRINT:PRINTCHR«(148);CHR$(133);TA 
B(9)'MIN1 COURS DE DIETETIQUE' 

700 PRINT:PRINTTAB(6)'Le pretier tabl 
eau que vous allez' 

710 PRINT:PRIMT'voir est un tableau g 
eneral de la con' 

720 PRINT:PRlNT'soiii«ation journalière 
de r honte en' 

730 PRINT:PRINT'protides,lipides...' 
740 PRINT:PRINTTAB(6)'Les quantités d 
e protides (prote-' 

750 PRINT:PRINT'ines), glucides «suc 
res) et lipides' 

760 PRINT:PRINT'(graisses) sont en gr 
âmes.' ' 

770 PRINT:PRIMTCHR«(131);' APRES CHA 
QUE PA6E VOUS POUVEZ :' 

780 PR1NT:PRINTCHR»(134);' -> REVENIR 
EN ARRIERE EN TAPANT R' 

790 PRINT:PRIMTCHR$(134);' -> STOPPER 
LE PROGRAMME EN TAPANT S' 

800 PRINT:PRINTCHR«(134);' -> CONTINU 
ER EN TAPANT C 
010 G0SUB275 
820 IFCi='r'THENG0T0660 
825 IFC*='f'THENG0T0660 


830 REM 

840 REM-TABLEAU 2- 

850 REM 

860 CLS:1NK5:PING 
870 PRINTTAB(4)'A6E 
LIP GLUCr 
880 PRINT:PR1NT' 2 a 4 


CALORIE PRO 


1000-1300 25 



-35 30-35 160-210' 

890 PRINT:PRINT' 4 a 6 1300-1600 35 

-40 30-35 210-280' 

900 PRINT:PRINT' 6 a 10 1600-2000 40 
-60 35-45 280-340' 

910 PRINT.-PRINT'IO a 15 2000-3400 60 
-99 45-75 340-580' 

920 PRINT:PRINT'15 a 20 3200-3400 95 
-99 70-75 540-580' 

925 PRINT:PRINT’H.seden 1800-2600 75 
-85 55-65 400-500' 

927 PRINT:PRINT'F.seden 1600-2300 65 
-75 45-55 350-400' 

930 PRINT:PRINT'’Encein 2800-3200 75 
-80 60-70 430-510' 

940 PRINT:PRINT'’Allait 3000-3200 80 
-95 70-95 510-540' 

950 PRINT:PRINT'P.agee 2000-2400 55 
-60 40-45 350-440' 

960 PRINT:PRlNT'Trav.de 3200-3800 80 
-90 70-85 560-680' 

970 PRINT'Force' 

975 PL0T1,0,3 

980 F0R1=2T024 

990 PLOT10,I,2:NEXT 

1000 G0SUB277 

1010 IFC»='r'THENG0T0660 

1020 IFCi='f'THEN6ÛT0840 

1030 REM 

1040 REM-TABLEAU 3- 

1050 REM 

1060 aS:lNK2:PlN6 

1070 PRINT:PRINT' Ce tableau net en 
evidence les pro-' 

1080 PRINT:PRINT'port ions des diffe 
rentes categories' 

1090 PRIN7:PRINT'les unes par rapport 
aux autres. Les 3* 

1100 PRINT:PRINT'devant toujours etre 
s présentes dans' 


1110 PRINT:PRINT'les proportions ci-d 
essous:' 

1120 PRINT:PRINT:PRINT' PROTIDE 
S:12 a 157 -> 60-80g' 

1130 PRINT:PRINT' LIPIDES :20 a 

302 -> 50-70g' 

1140 PRINT:PRINT' auCIDES: 60 

X -> 430-500g' 

1150 PRINT:PRINT:PRINT' (Chiffres en 
X de l’energie totale' 

1160 PRINT:PRINT' absorbée)' 

1170 F0RI=12T016 
1180 PL0T2,I,1:NEXT 
1102 F0RI=17T021:PL0T1,I.3 
1135 NEXT 
1190 G0SUB275 
1200 IFC*='r'TH£NG0T0840 
1210 IFC«='f'TH£NG0T01030 
1220 REM 

1240 REM-TABLEAU 4- 

1250 REM 

1260 CLS:INK2:PING 

1270 PRINT:PRINT' N’oublions pas T 
eau, elenent pri-' 

1280 PRINT:PRINT'i»ordial de notre al 
inentation et qui' 

1290 PRINT:PRINT’doit etre apportée p 
ar les alinents et' 

1300 PRINTrPfilNT'les boissons ; envir 
on 2,5 litres par' 

1310 PRINT:PRINT'jour.' 

1320 PRINT:PR1NT' Enfin notre alin 
entation doit aus-' 

1330 PRINT:PRINT'si conporter de très 
noiibreux elenents' 

1340 PRINT;PRIMT*iiineraux,qui nalqre 
leur faible quan-' 

1350 PRINT:PRINT'tite n’en sont oas 
aoins indispensa-' 

1360 PRINT:PRINT'blBS.' 

1370 PL0T23,08,12;PL0T24.08.1:PL0T25. 
08,'—' 

1380 PL0T18,2,6:PL0T19,2,12:PL0T20,2, 


1385 PL0T28,17,5:PL0T1,19,5 
1390 G0SUB275 
1400 IFC«='r'THENG0T01040 
1410 IFC<='f'T)€NGOT0l22O 
1420 REM 

1430 REM-TABLEAU 5- 

1440 REM 

1450 aS:INK2:PlN6 

1460 PRINT:PRINT' Elenents nineraux e 
n ml lignâmes par' 

1470 PRINT:PRINT’jour: CALCIUM 
900 nq' 

1480 PRINT:PRINT' PHOSPHORE 

1300 mg' 

1490 PRINT:PRINT' SODIUM 
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6000 mg* 

1500 PRINT:PRINT* 

POTASSIUM 

1500 mg* 

1510 PRINT;PR1NT* 

FER 

20 mg* 

1520 PRINT;PRINT* 

IODE 

0,2 mg* 

1530 PRINT:PRINT* 

CUIVRE 

1,5 mg* 

1540 PRINT:PR1NT* Enfin n’oublions 

pas les vitamines* 

1550 PRINT:PRINT*elles 

aussi indispen 


sables a notre or-* 

1560 PRINT:PRIMT'ganis««.Voici les pl 
us importantes et* 

1570 PRINTrPRIMT'leur propriétés.' 

1580 F0RI=3T015 

1590 PL0T8,I,3:PL0T20,I,1 

1600 NEXT 

1610 GOSUB275 

1620 IFC$=*r*THENG0T01240 

1630 IFC»=*f*TÆN«)T01430 

1640 REM 

1650 REM-TABLEAU 6- 

1660 REM 

1670 aS:INK2;PIN6 

1680 PRINT’Vit Aliments riches Pr 
oprietes* 

1685 PRINT*- 


1690 PRINT* A beurre fromages favor 
ise croiss.* 

1700 PRINT* legunes prote 

ge muqueuses* 

1710 PRlNTîPRINT'Bl germes riz ble 
assimil. graisses* 

1720 PRINT* foie levure leg prote 

ge syst.nerf* 

1730 PRINT;PRINT*B2 foie rognons 
favorise metabol-* 

1740 PRINT* levure oeufs isme 

des cellules* 

1750 PRINT;PRINT* C agrumes legumes 
respir.cellulaire* 

1760 PRINT* poivrons prote 

ge vaisseaux* 

1770 PRINT;PRINT*PP viande maigre 
assimil.graisses * 

1780 PRINT* foie rognons et su 


que cellules* 

1830 PRINT;PRINT'BC toutes viandes 
faciliteformation* 

1840 PRINT* tous végétaux des p 
roteines * 

1845 C=1 

1850 F0RI=2T023STEP3 
1860 PL0Tt,I,C:PL0Tl,I+l,C 
1865 IFC=7THENC=0 
1870 C=C+1:NEXT 
1880 G0SUB275 
1890 IFCi=*r*THENGOT01430 
1900 IFCi=*f*THEN60T01650 
1910 REM 

1920 REM-TABLEAU 7- 

1930 REM 

1940 CLS:INK2:PING 

1950 PRINT'EXEMPLE DE MENU EQUILIBRE: 


1960 PRINT;PRINT*MATIN:l/4 de lait + 
the,cafe ou cacao* 


1970 PRINT* 

100-t50q pain-biscot 

tes beurrees* 


1980 PRINT:PRINT*MIDI :crudites a vol 

onte* 


1990 PRINT* 

100g viande,poisson 

ou 2 œufs* 


2000 PRINT* 

legumes frais ou sec 

S 

2010 PRINT* 

(ou pâtes 2 fois p 

ar semaine)* 


2020 PRINT* 

fromage ou yoghourt* 

2030 PRINT* 

boisson moderee* 

2040 PRINT* 

100-150g pain* 

2050 PRINT;PRINT' 

'SOIR :potagB ou crud 

ites* 


2060 PRINT* 

legumes frais ou sec 

5 

2070 PRINT* 

(en fonction du po 

tage* 


2080 PRINT* 

fruits ou entremet* 

2090 PRINT* 

boisson *■ 100-150g p 

ain* 


2100 PRINT:PRINT 

'CONCLUSION bien se 

nourrir c’est man 



2110 PRINT:PRINT*ger varie et en quan 
tite raisonnable.' 

2120 F0RI=1T03:PL0T1,I.6:NEXT 
2130 F0RI=4T012;PL0T1,I,3;NEXT 


2140 F0RI=13T018:PL0T1,I,1:NEXT 
2150 F0RI=19T022:PL0T1,I,12:NEXT 
2160 60SUB275 
2170 IFC$=*r*THENGOT01650 
2180 IFC$=*f*THEN60T01920 
2190 REM 

2200 REM-TABLEAU 8- 


2210 REM 

2220 CLS:INK3:PIN6 

2230 PRINTCHR«(147):CHR$(132);* 

CONCLUSIONS* 

2240 PRINT;PRINT* Notez que tous les 
chiffres qui vous* 

2250 PRINT:PRINT*ont ete cites ne son 
t donnes qu’a ti-* 

2260 PRINT:PRINT*tre indicatif. En ef 


fet il peuvent va-* 

2270 PRINTiPRINT'rier suivant plusieu 


rs paramétrés:* 

2280 PRINT:PRINT* 
pport de lipides).* 
2290 PRINT:PRINT* 
'activités.* 

2300 PRINT;PRINT* 


-> Le climat la 
-> Votre type d 
-> Votre metabo 


lismê.* 

2310 PRINT:PRINT* Pour cela une etud 
e detaillee de vo-* 

2320 PRINT:PRINT*tre cas est necessai 


re.* 

2330 FORI=10T014:PLOT1,I,6:NEXT 
2340 PLOT15,2O.12;PL0T16.2O,5:PL0T17. 
20,'FIN* 

2350 PLOT19,22.1:PL0T20,22,*Prof. Did 
ier TETIC* 

2360 G0SUB275 
2370 IFC$=*r*T}€N1920 
2380 IFC«=*f*THEN2200 
2390 IFC$=*c*THENG0T0650 

2999 END 

3000 REM 

3010 REMa*«*ETUDE CAS PERSONEL***** 
3020 REM 

3030 REM-PRESENTATION- 

3040 REM 

3050 CLS:PAPER0:INK6 
3060 PRINT* ETUDE DE VOTRE CAS PE 
RSONEL* 

3070 PL0T2,0,20:PL0T3,0.5 

3080 PRINT:PRINT* Cher(e) ami(e 



)* 

3090 PRINT;PRINT* # Permettez moi de 
vous demandez* 

3100 PRINT:PRINT* quelques renseign 

ements.* 

3110 UAIT200 

3120 PRINT:PRINT;PRINT* * Ils restero 
nt confidentiels,* 

PRINT;PRINT* • donc soyez gentil 
ne pas* 


cres' 

1790 PRINT:PRINT* D poisson exposit 
fixe le calcium * 

1800 PRINT* ion au soleil & pho 
sphore os* 

1810 PRINTiPRINT* E legumes frais 
facilite travail * 

1820 PRINT* huile vegetale chimi 
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3140 PRINT:PRINT‘ tricher...':WAIT2 
00 

3145 PRINT:PRINT:PRINT‘ _ Dans le tab 
leau suivant il vous' 

3150 PRINT:PRINT' suffira d’entrer 
les données puis' 

3155 PRlNTrPRINT' d’appuyer sur la 
touche RETURN.':UAIT200 
3160 PRINT;PRINT;PRINT' # En cas d’er 
reur tapez sur DEL.':WAIT200 
3180 PLOTl,26,3:PL0T2,26,'Appuyez sur 
une touche pour continuer.':GETC$ 

3190 REM 

3200 REM-ENTREE DES DONNES- 

3210 REM 
3220 CLS;INK3 

3230 PRlNTTABdD'ENTREE DES DONNEES' 
3240 PLOTl,0,1B:PL0T2,0,1 
3250 PRINT:PRINTCHR$(130)' -> Quel e 
st votre prénom ’' 

3260 INPUTNl* 

3265 Nt=LEFT$(Nl$.16) 

3270 PRINT:PR1NTCHR*(130)' -> Quel e 
st votre sexe ?' 

3280 PRINTCHR$(129)' (tapez mascu 
lin ou féminin)' 

3290 INPUTS$ 

3300 IFS«>'ma5Culin'ANDS$<>'feminin' 
THEN3270 

3310 PRINT:PR1NTCHR$(130)' -> Quel e 
st votre taille ?' 

3320 PRINTCHR$(129)' (En chiffres 

et en cm)' 

3330 INPUTT 

3335 IFT<50 OR T>250 THEN 3310 
3340 PRINT;PRINT(XR«(130)' -> Quel e 
st votre poids ?* 

3350 PRINTCHR$(129)' (En chiffres 

et en kg)' 

3360 INPUTPP 

3365 IFPP<5 OR PP/300 TÆN 3340 
3370 PRINT;PRINTCHR$(130)' -> Quel e 
st votre âge ?' 

3380 PRINtCHR$(129)' (En chiffres 

et non suivi de an)' 

3390 INPUTA 

3395 IFA<0 OR A>200 THEN 3370 
3400 PRINT:PRINTCHR$(130)' -> Quel e 
st votre actvite ?' 

3410 PRINTCHR$(130)' (nulle,moder 

ee,presque intense,' 

3420 PRINTCHR$(130)' intense,tre5 

intense)' 

3430 PRINTCHR$(129)' (Tapez le mo 

t en toute lettres' 

3440 PRINTCHR$(129)' et surtout s 

ans fautes...)' 

3450 INPUTACI 

3460 IFACiO'nulle'ANDACSO'moderee'T 



HEN3470ELSE3482 

3470 IFACiO'presque intense'ANDACSO 
'intense'THEN3480ELSE3482 
3480 IFACJO'tres intense'THEN3400 
3482 PR1NT!PRINTCHR<(130)' -> Faites 
vous du sport ?' 

3484 PRINTCHR$(129)' (oui ou non)' 

3486 INPUTSP* 

3488 IFSP$<>'oui'ANDSP$<>'non'THEN348 

2 

3490 IFSPI='oui'THEN3492ELSE3500 
3492 PRINT:PRINT(XR$(130)' -> Faites 
vous de la compétition ?' 

3494 PRINTOIR$(129)' (oui ou non)' 

3496 INPUTCP$ 

3498 IFCPi<>'oui'ANDCP$<>'non'THEN349 

'y 

Â. 

3499 REM 

3500 REM- CNlM. PERSONNEL- 

3510 REM 

3520 (1S;INK0 

3530 PL0T3,13,12:PL0T4,13,7:PL0T5,13, 
20 

3540 PL0T6,13,'PATIENTEZ QUELQUES INS 
TANTS' 

3550 PL0T34,13,16 

3560 IFS$='ma5culin'THENS=.9 

3565 IFS=.9THENG*='Mon cher' 

3570 IFS$='feminin'THENS=.8 
3575 IFS=.BTHENG$='Ma chere' 



3580 IFACi='nulle'THENAC=27 
3590 IFAC$='moderee'THENAC=31 
3600 IFAC$='presque intense'THENAC=35 
3610 IFAC$='intense'THENAC=39 
3620 IFAC$='tres intense'THENAC=43 
3630 PC=(T-100)-((T-150)/4) 

3640 BC=PC*AC 

3650 PLAY1,0,0,0:FORI=1T075:SOUND1,IN 
T(RND(1)*100)+10,12:NEXT:PLAY0,0,0,0 
3655 REM 

3660 REM-AFFKXAGE RESULTATS- 

3670 REM 
3680 CLS:INK6 

3690 PRINTTAB(15)'B I L A N' 

3700 PLOTl,0,20:PL0T2,0,6:PL0T3,0,12 
3710 PRINT:PRINTTAB(5)G$;' '; 

3780 PRINTN$ 

3790 PRINT:PRINT' D’apres mes calculs 
il se trouve que' 

3800 PRINTiPRINT'mathematiquement par 
lant vous devriez:' 

3820 DI=PC-PP 
3830 IFDI=0THEN3860 
3840 IFDI<0THEN3880 
3850 IFDI.>0THEN390O 
3860 PRINT:PRINTCHR$(131);TAB(3)' » P 
eser exactement';PC;'KG.' 

3870 PRINT:PRINT(>(R$(131);TAB(4)'Donc 
c’est parfait !' 

3875 G0T03920 

3880 PRINT:PRINTCHR$(131);TAB(3)' ♦ P 
eser';PC;'KG.' 

3885 PRINT:PRINTCHR$(131);TAB(4)'I1 v 
ous reste donc a perdre';(INT(-D1));*K 

G.' 

3890 60T03920 

3900 PRINT:PRINTCHR«(131);TAB(3)' ♦ P 
eser';PC;'KG.' 

3910 PRINT:PRINTCHR$(131);TAB(3)'Vous 
pouvez donc prendre';!INT(DI));'KG.' 
3920 PRINT;PRINTCHR$(133)TAB(3)' * Pr 
endre';(INT(BC));'calories par jour.' 
3930 PRINT:PRINTCHR$(130);TAB(3)' ♦ A 
bsorber un minimum de';(INT(PC)) 

3935 PRINT:PRINTCHR$(130);TAB(4)'gram 
mes de protides.' 

3936 REM 

3937 REM-COMMENTAIRES SPORT- 

3938 REM 

3942 IFSP$='non'THEN3944ELSE3946 

3944 PRINT:PRINTCHR$(129);TAB(3);' ♦ 
Et pourquoi ne pas faire un' 

3945 PRINT;PRINTCHR$(129);TAB(4);'peu 
de sport...':S0T03973 

3946 PRINT:PRINTCHR$(129);TAB(3);' ♦ 
Vous etes sportif BRAVO CONTINUEZ' 

3947 IFCP«='non'THEN3973ELSE3948 

3948 PRINT:PRINTCHR«(129);TAB(3);' ♦ 
Attention la compétition exi-' 
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3949 PRINT;PRINTCHR$(129);TAB(4);‘ge 
une alimentation spéciale...* 

3950 PL0Tl,26,6:PL0T2,26,*Appuyer sur 
une touche pour continuer*:GETC$ 

3953 REH 

3954 REM-AFF. SPORT- 

3955 REM 

3956 CLS:PRINTCHR$(145);CHR$(134);TAB 
(9);*ALIMENTATION SPORTIVE*:INK3 

3957 PRINT:PRINT* i Tout d’abord le d 
ernier repas doit* 

3960 PRINT* etre pris assez longtemps 
avant que* 

3961 PRINT* ne comnence l’entrainemen 
t.* 

3962 PRINTrPRINT* * L’alimentation do 
it etre riche en* 

3963 PRINT* protides (viandes,produit 
s laitiers,* 

3964 PRINT* poissons) et vitamines (f 
ruit5,sala-* 

3965 PRINT* des).* 

3966 PRINT:PRINT* _ Il convient d’evi 
ter graisses & a-* 

3967 PRINT* liments glaces.* 

3968 PRINT:PR1NT* f Ces aliments doiv 
ent etre rapide -* 

3969 PRINT* ment assimilables.Pendant 
& apres la* 

3970 PRINT* compétition, une boisson 
a base de* 

3971 PRINT* glucose compense les pert 


4098 PLOTl,23,6;PL0T2,23,* mante.* 
4100 PL0Tl,24,6:PL0T2,24,*-> M pour r 
evenir au sommaire.* 

4110 PLOTl,25,6:PL0T2,25,*-> R pour r 
ecomnencer.* 

4115 PL0Tl,26,6:PL0T2,26,*-> B pour r 
evoir le bilan.* 

4120 GETC$ 

4130 IFC$=*m*THEN490 
4140 IFC$=*r*THEN3000 
4150 IFC$=*b*THEN366C 
4155 IFC$=*m*THEN4200 
4160 IFC»<>***ANDC$<>*r*ANDC$<>*b*AND 
C$<>*m*THENGOSOB291:GOT04094 
4170 END 
4200 REM 

4205 REM-> IMPRIMANTE- 

4210 REM 

4215 CLS:PRINTCHR«(150)îCHR*(129);TAB 
(10);*I MPRIMANTE* 

4220 PRINT:PRINT* # Attention...* 

4225 PRINTrPRINT* Votre imprimante 
doit etre alimen-* 

4230 PRINT* tee et connectée a votr 
e 0RIC.’:MAIT200 

4235 PRINTrPRINT* * Pret...*;WAIT200 
4240 PRINTrPRINT* _ Appuyez sur une t 
ouche...*rGETC$ 

4245 PRINTrPRINTCHR$(129);CHR$(140);* 
»»>SORTIE SUR IMPRIMANTE««<* 

4250 LPRINT l« 

4255 LPRINT *Vous mesurez: *;T;* cm* 


4510 REM««*« fCNU EQUILIBRE ******* 
4520 REM 

4530 REM-PRESENTATION- 

4540 REM 

4550 CLS:PAPER0:INK2 
4560 PLOTl,O,19:PL0T2,0,l:PL0T9,0,*I 
NSTRUCTIONS* 

4570 PRINTrPRINTrPRINT* Dans les pa 
ges suivantes vont vous’ 

4580 PRINTrPRINT’etre présentes une s 
erie de tableaux* 

4590 PRINT:PRINT*comportant different 
s plats et ail-* 

4600 PRINT:PRINT*tents.Il vous suffir 
a alors d’indi-* 

4610 PRlNT:PRINT*quer a l’ordinateur 
le plat que vous* 

4620 PRINT;PRINT*desirez consommer (g 
race a son nume-* 

4630 PRINT:PRINT*’ro) puis de préciser 
la quantité en* 

4640 PRINTrPRINT’grammes.* 

4690 PL0Tl,25,6;PL0T2,25,*->Tapez sur 
une touche pour continuer* 

4710 GETC«:aS:INK2 
4720 GOTO405O 
4750 REM 

4760 REH-TABLEAU STANDARD- 

4770 REM 

4780 CLS:INK0:PAPER4 
4790 F0RI=1T016;PL0T1,I,22:PL0T25,I.2 
0;PL0T26,I,18:PL0T39,I,20:PL0T3,1,0:NE 


es energe -* 

3972 PRINT* tiques (sans oublier un a 
pport sale)*;PRINT 

3973 PRINT:PRINTCHR$(134);*Appuyez su 
r une touche pour continuer* 

3974 IFW=1THEN60T04275 
3976 GETC$ 

4000 REM 

4010 REM-CONaUSIONS PRESON.- 

4020 REM 
4030 aS;INK2 

4040 PRINT;PR1NT* J’espere *;G$î* 

;l« 

4050 PRINT:PRINT*que ces chiffres ne 
vous ont pas de-* 

4060 PRINT:PRINT*courage(e) & surtout 
que vous vous ef-* 

4070 PRINT;PRINT*forcerez de suivre 1 
es judicieux con-* 

4080 PRINT;PRINT*seils qui vous ont e 
te donnes.* 

4090 PLOTl,15,1:PL0T20,15,*0RIC ATHOS 


4260 LPRINT ’Vous pesez: *;PP;* kg* 
4265 LPRINT ’Vous avez: *;A;* ans* 
4270 LPRINT ’Vous devriez peser: *;PC 

;■ kg’ 

4275 LPRINT ’Vous devriez prendre: *; 
(INT(BC));* cal/jour* 



4280 LPRINT ’Vous devriez absorber; * 
;(INT(PC));* gr de protides/jour* 

4285 LPRINT *Et faire un peu de sport 


XT 

4800 F0RI=18T026;PL0TO,I,16:PLOTl,1,2 
;NEXT 

4810 PL0T2,2,23:PL0T24,2,22:PL0T27,2, 
23:PL0T38,2,18 
4820 PL0T28,2,*CAL./10Ogr* 

4830 RETURN 
4850 REM 

4860 REM-TABLEAU VIANDES- 

4870 REM 

4875 DIMXC$(12):DIMZ$(12):DIMTR$(40) 

4880 60SUB4750 

4890 DIMV$(12):DIMVC$(12) 

4900 Vt(l)=*l BOEUF*:VC$(1)=*218* 
4910 V$(2)=*2 DINDE*;VC$(2)=*145* 
4920 V$(3)=*3 JAMBON CRU*:VCi(3)=*50 

O» 

4930 Vi(4)=*4 JAMBON CUIT*:VC*(4)=*4 
22 * 

4940 V$(5)=*5 LAPIN*:VC$(5)=*179* 
4950 V$(6)=*6 MORTADELLE*:VC»(6)=*36 

7* 


48 KG* 

4094 PLOTl,20,6:PLOT2,20,* ♦ TAPEZ SU 
R:* 

4096 PLOTl,22,6:PL0T2,22,*-> H pour s 
ortir le bilan sur impri-* 


4290 LPRINT *A moins que vous n’en fa 
ssiez déjà.* 

4295 GOT04000 
4500 REM 


4960 Vi(7)=*7 POULE*:VC«(7)=*302* 
4970 V$(8)=*8 POULET*:VC$(8)=*200* 
4980 V$(9)=*9 SAUCISSE*:VC$(9)=*342* 
4990 V$(10)=*10 SAUCISSON*;VC$(10)=*4 
72* 
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5000 V«<11)=’11 TRIPES':V«( 11 )=*O70‘ 
5010 V$(12)='12 VEAU':VC$(12)='094' 
5020 T1»='VIANDES' 

5030 F0RI=1T012;PL0T4,3+I,V$(I):PL0T2 
8.3+I.VC*(I);NEXT 
5040 PL0T4,2,T1* 

5045 F0RI=1T012:XC«(I)=VC$(I):Z$(I)=V 
$(I):NEXT 

5050 60SUB5060:60T05200 
5060 REM 

5070 REM-QUESTIONNAIRE- 

5080 REM 

5090 PLOTl,19,1:PL0T2,19,12:PL0T4,19, 
•ENTREZ VOTRE REPONSE PUIS RETURN' 

5095 F0RD=21T026:PL0T2,D,' 

■:NEXT 

5100 PRINTa2,21:'De5irez-vous un de c 
es aliments (0/N)' 

5110 INPUTCi: IFCSO'o'ANDCiO'n'THENS 
095 

5115 F0RD=21T026;PL0T2,D,' 

•:NEXT 

5120 IFCi='n'THEN RETURN 
5130 IFC$='o'THEN5135 
5135 F0RD=21T026:PL0T2,D,' 

•:NEXT 

5140 PRINTa2,21;'Lequel ? (Afficher s 
on numéro) * 

5150 INPUTI;IFI<10RI>12THEN5135 
5155 F0RD=21T026;PL0T2,D,' 

■;NEXT 

5160 PRINTa2,21;'Avec quelle quantité 
? (en grammes) ' 



5180 Q=0+(VAL(XC$(1))*(QU/100)) 

5182 TR$(F)=Z$(I):F=F+1 
5184 GOT05095 
5190 RETURN 
5200 REM 

5210 REM-TABLEAU POISSONS- 

5220 REM 

5230 60SUB4750 

5240 DIMP$(12);DIMPC<(12) 

5250 P$(l)='l DORADE';PC$(1)='082' 
5260 P$(2)='2 LOTTE';PC<(2)='106* 
5270 P<(3)='3 MERLAN':PC»(3)='074' 


5280 Pi(4)='4 MORUE':PC«(4)='107' 
5290 P$(5)='5 ROUGET';PC$(5)='113' 
5300 P$(6)='6 SARDINE':PC$(6)='115' 
5310 P<(7)='7 SAUMON':PC<(7)='143' 
5320 P$(8)='B S0LE':PCi(8)='084' 

5330 P$(9)='9 THON':PC$(9)='198' 

5340 P$(10)='10 TRUITE':PC«(10>='088' 
5345 P$(ll)='ll COLIN':PC$(11)='080' 
5347 P$(12)='12 BROCHET':PC$(12)='083 

I 

5350 T2$='P0ISS0NS' 

5360 F0RI=lTO12:PL0T4,3+I,P$(I):PL0T2 
8,3+I,PC$(I);NEXT 
5370 PL0T4,2,T2$ 

5375 F0RI=lTO12:XC«(I)=PC«(I);Z$(I)=P 
*(I):NEXT 
5380 G0SUB5060 
5400 REM 

5410 REM-TABLEAU LEGUMES- 

5420 REM 

5430 G0SUB4750 

5435 DIMLi(12):DIMLC*(12) 

5440 L$(1)=•1 ARTICHAUTS':LC$(1)='02 



7' 

5450 L$(2)='2 AUBERGINE':LC<(2)='024 


5460 L$(3)='3 
5470 L$(4)='4 

5' 

5480 L$(5)='5 

8 ' 

5490 L$(6)='6 
5500 L$(7)='7 
=■035' 

5510 L«(8)='B 
)='083' 


BLETTES':LC$(3)='027' 
CHOU FLEUR':LCi(4)='D2 

COURGETTES':LC«(5)='01 

EPINARDS';LC$(6)='020' 
HARICOTS VERTS':LC$(7) 

POMMES DE TERRE':LC$(8 


5512 L$(9)='9 PETITS P0IS':LC$(9)=*0 
55' 

5514 L$(10)='10 CONCOMBRE':LC«(10)='0 
12 ' 

5516 L$(ll)='ll TOMATES':LC$(11)='022 


5518 L$(12)='12 POIREAUX';LC$(12)='03 

5' 

5520 T3«='LESUMES' 

5530 FORI=1T012:PLOT4,3+I,L$(I):PLOT2 
8,3+1,LC«(I);NEXT 


5540 PL0T4,2,T3$ 

5545 F0RI=1T012;XC$(I)=LC$(I);Z$(I)=L 
$(I):NEXT 
5550 G0SUB506O 
5560 REM 

5570 REM-TABLEAU CONDIMENTS- 

5580 REM 

5590 G0SUB4750 

5595 DIMC$(12):DIMCC«(12) 

5600 C«(l)='l BEURRE':CC$(1)='716' 
5610 C$(2)='2 HUILE D’OLIVE':CC$(2)= 
•891' 

5620 C$(3)='3 LARD';CC$(3)='775' 

5630 C$(4)='4 OEUF (1 oeuf=50 q)';CC 



*(4)='162' 

5635 C$(5)='5 MIEL/C0NFIT.':CC$(5)=' 
300' 

5640 C$(6)='6 HARICOTS SECS';CC$(6)= 
•338' 

5650 C$(7)='7 LENTILLES':CC$(7)='337 

■ 

5660 C$(8)='8 POIS CASSES':CC$(8)='0 
98' 

5670 C$(9)='9 POIS CHICHES':CC$(9)=' 
320' 

5672 C$(10)='10 CHOCOLAT':CC$(10)='60 

0 ' 

5674 C$(ll)='ll SUCRE';CC$(11)='400' 
5676 C$(12)=' •:CC$(12)=' ' 

5680 T4$='C0NDIMENTS' 

5690 FORI=1T012:PLOT4,3+I,C$(I):PLOT2 
8,3+I,CC$(I):NEXT 
5700 PL0T4,2,T4$ 

5705 F0RI=1T012;XC$(I)=CC$(I);Z$(I)=C 
$(I):NEXT 
5710 G0SUB506O 
5720 REM 

5730 REM-TABLEAU LAIT- 

5740 REM 

5750 60SUB4750 

5755 DIMt1$(12):DIMMC$(12) 

5760 M$(1)=•1 BRIE':MC$(1)='327' 

5770 M»(2)='2 CAMEMBERT':MC$(2)='389 

• 

5780 Mi(3)='3 FROMAGE BLANC:MC$(3)= 
•375' 

5790 M$(4)='4 FROMAGE DE CHEVRE':MC$ 
(4)='362' 


35 





5800 M$(5)=*5 

5’ 

5810 I1$(6)=*6 
5820 r«(7)=*7 
•065* 

5830 M$(B)=’8 
5840 M$(9)=*9 


GORGONZOLA':MC$(5)=*35 

GRUYERE*:«C$(6)='385' 
LAIT DE VACHE':(1C$(7)= 

PARMESAN':HC$(8)='389' 
PORT-SALUT*;MC$(9)=*40 


2 ' 

5842 rii(10)='10 YAOURT NATURE':MC«( 10 
>=•060* 

5844 I1$(ll)='ll LAIT 1/2 ECRE';HC$(11 
>='050* 

5846 M$(12)='12 CHANTILLY*:HC$(12)='3 
20 ' 

5850 T5$='LAIT ET DERIVES* 

5860 F0RI=1T012!PL0T4,3+I,M«(I);PL0T2 
8,3-»I,MC$(I):NEXT 
5870 PL0T4,2,T5$ 

5875 F0RI=IT012:XC$(I)=HC$(I):Z$(I)=fl 


$(I}:NEXT 
5880 G0SUB506O 
5890 REM 

5900 REM-TABLEAU FRUITS- 

5910 REM 

5920 G0SUB4750 

5925 DIMFi(12):DIMFC»(12) 

5930 F$(l)='l ABRIC0TS';FC$(l)='05r 
5940 F$(2)='2 CERISES*:FC$(2)='061' 
5950 F$(3)='3 MANDARINES*:FCi<3)='04 


4' 

5960 F$(4)=*4 
5970 F$(5)='5 
5980 F$(6)='6 
5990 F$(7)=*7 
6000 F$(8)=*8 
6010 F$(9)=*9 


MELON':FC«<4)=*020* 
N0IX*;FCi(5)=*646' 
ORANGES*:FC$<6)='045' 
PECHES':FC$(7)='046' 
POIRES':FC«(8)='063' 
POMMES':FC$(9)='058' 


6020 F$(10)='10 RAISINS':FC$(10)='066 


6022 F$(ll)='ll BANANE*:FC$ni)='090' 
6024 F$(12)='12 PAMPLEMOUSSE* :FC$n2) 
='042* 

6030 T64='FRUITS* 

6040 F0RI=1T012;PL0T4,3+I,F$(I):PL0T2 
8.3+I,FCi(I):NEXT 
6050 PL0T4,2,T6$ 

6055 FORI=1T012:XC$<I)=FC$(I);Z«(I)=F 
$(I):NEXT 
6060 G0SUB5060 
6070 REM 

6080 REM-TABLEAU DIVERS- 

6090 REM 

6100 G0SUB4750 

6105 DIMB$(12):DIMBC$(12) 

6110 B$(l)='l BISC0nES':BC«(l)='411 


6120 B»(2)='2 
6130 B»(3)=*3 
6140 Bi(4)=*4 
6150 B$(5)=*5 


GRESSINS'!BC$(2)=*373* 
PAIN*;BC$(3)='263' 
PATES'!BC*(4)='377' 
RIZ';BC$(5)='362' 


6151 B$(6)='6 
'350' 

6152 B$(7)='7 
=' 460 * 

6133 B$(8)='8 

5* 

6154 B$(9)='9 


FLOCON AVOINE':BC$<6)= 
BISCUITS SABLE':BC$(7) 
JUS FRUITS';BC»(8)='07 
VIN ROUGE':BCi(9)=*700 


6350 PRINT:PRINT'ApDuyer sur une touc 
he pour continuer' 

6360 GETC$ 

6370 CLS;PAPER0;INK2 
6380 PRINTCHR«(145);CHR«(131);CHR$(14 
0);TAB(9);'C ONCLÜSIONS' 

6390 PRINTrPRlNT' * Ces'iINT(Q);'ca 
lories sont elles' 


6155 B»(10)=' 1 L = 1000 gr';BC$(iC 

)=* ' 

6160 T7$='PAIN ET PATES' 

6168 B$<in=' ':BC$(11)=' ';Bi(12)=' 
':BC$(12)=' ' 

6170 F0RI=1T012:PL0T4,3+I,B$(I):PL0T2 
B,3+I,BC$(I):NEXT 
6180 PL0T4,2,T7$ 

6185 F0RI=1T012:XC$(I)=BCS(I):Z>(I)=B 
$(I):NEXT 
6190 G0SUB5060 
6200 REM 

6210 REM-TABLEAU RECAPITULATIF- 

6220 REM 

6230 CLS:PAPER0:INK6 
6232 IFQ=0THENINK5;PR1NT:PRINT' -> Vo 
us n’avez rien choisi...':G0T06460 
6240 PRINTCHR«(150)îCHR«(132);CHI»(14 
0);TAB(16);*M E N U' 

6250 PRINT:PR1NTCHR$(133);TAB(5);*» M 
ENU #';PRINT 
6270 FORI=OTOF-1 

6280 L=LEN(TR$(I)):RR$(I)=RIGHT*(TR$< 



I),(L-3)) 

6290 PRINTCHR$(131);RR*(I):NEXT 
6300 IFF>15 THEN NAIT 300 
6310 PRINT:PRINT' * Ce repas (avec 
les quantités que' 

6320 PRINT'vous avez choisies) coapor 
te très exac* 

6330 PRINT'teaent :';CHRS(129);CHRS{1 
40);TAB(10);INT(Q){'CALORIES' 


6400 PRINT'en accord avec votre cas 
personnel ?' 

6410 PRINT:PRINTCHR$(131);' -> Si ou 
i,félicitation...' 

6420 PRINT:PR1NTCHR$(129);' -> Si no 
n.et bien essayer un autre' 

6430 PRINTCHR$(129);' aenu ou...pass 
ez outre les reco*-' 

6440 PRINTCHR$(129);' mandations...e 
t mangez ce bon il' 

6450 PRINTCHR$(129);' vous semble " 
6460 F0RI=21T026;PL0TO,I,6:NEXT 
6470 PL0T1,21,' * TAPEZ SUR:' 

6475 PL0Tl,23,'-> W pour avoir le men 
U sur imprimante' 

64^0 PL0Tl,24,'-> S pour arrêter le p 
rogramme' 

6485 PL0Tl,25,'-> M pour revenir au 
sommaire' 

6490 PL0T1,26,'-> R pour essayer un a 
utre menu' 

6500 GETC<:IFC$<>'»'ANDC»<>'5'ANDC$<> 
' r * ANDCSO ' w' THEMG0SUB291 : G0T06370 
6510 IFCi='m'THENCLEAR:G0T0490 
6520 IFC$='s'T)€NCLEAR:PAPER7:INKl;CA 
LLDEEK(#FFFA):ZAP:END 
6530 IFCi='r'THENCLEAR:60T04510 
6540 lFC$='e'THEN60T066æ 
6600 REM 

6605 REM-> IMPRIMANTE- 

6607 REM 

6610 CLS:PRIMTCHI»(150);CHR*(129);TAB 
(10);*I MPRIMANTE* 

6612 IF0=0THEN6615ELSE6650 
6615 PRINTiPRINT' _ Vous n’avez rien 
choisi...' 

6620 PRINTiPRINT' Donc pas de sorti 
e sur imprimante.' 

6625 UAIT300:GOT06460 

6650 PRINTiPRINT' i Attention...' 

6655 PRINTiPRINT' Votre imprimante 
doit etre alimen-' 

6660 PRINTiPRINT' tee et connectée 
a votre ORIC.':HAIT200 
6665 PRINTiPRINT' * Prêt...*:UAIT100: 
PRINTiPRINT' _ Appuyez sur une touche. 

':GETC$ 

6670 PRINT:PRINT'»»SORTIE SUR IHPRI 
MANTE EN COURS««':PLOTO, 12,liPL0Tl, 1 
2,12 

6675 FORI=OTOF-1 
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6680 L=LEN(TR$(I)):RR$(I)=RIGHT$(TRI( 
I),(L-3)) 

6685 LPRINT RRKI) 

6690 NEXT 

6695 LPRINT ' ':LPR1NT *Ce ii(enu,avec 
les quantités choisies' 

6700 LPRINT ’conporte: *;(|;" calories 

R 

6705 WAIT200:CLS:GOT06460 

7000 REM 

7001 REM*****DEPENSES*»****m*«**»»» 

7002 REM 

7005 REM-PRESENTATION.. 

7010 REM 

7015 CLSiPRlNTCHRK151);CHRI(133);TAB 
(11):*A C T I V I T £ S' 

7020 PAPER0:INK2 

7025 PRINTiPRINT* # Dans ce tableau,v 
DUS allez pouvoir* 

7030 PRINT’ calculer votre consommât! 
on journa 

7035 PRINT' liere en calories en fonc 
tion de vos' 

7040 PRINT* activités précisés.' 

7050 PRINTiPRINT* Pour cela il suff 
it de choisir une" 

7055 PRINT' activité a l’aide des fie 
ches du cur* 

7060 PRINT' seur puis de faire varier 
la duree' 

7065 PRINT' grâce aux touches [<] et 

[>].' 

7070 PRINTiPRINT* _ Attention.une jou 
rnee ne fait que* 

7075 PRINT* 24 heures (24 heure5=1440 
minutes).' 

7080 PLOT1,26,6:PLOT2,26. 'Appuyez su 
r une touche pour continuer*iGETCl 
7085 REM 

7090 REM-TABLEAU ACTIVITES- 

7095 REM 

7100 CLS:PAPER0:INK6:CLEAR:DIMMN(18): 
DIMJ0(18):DIMJT(18) 

7101 J0(3)=35:J0(4)=4O:JO(5)=5O:JO(6) 
=60:J0(7)=85:J0(8)=100 

7102 J0(9)=100:J0(10)=100:J0(11)=140: 
J0(12)=140:J0(13)=140 

7103 J0(14)=220:J0(15)=250:J0(16)=35C 
:JO(17)=360:JO(18)=600 


7105 PRINT'- 


7110 PRINT'! : 
CAL 1 MNS !' 

7115 PRINT'- 

... I 

ACTIVITES 


7120 PRINT'! ! 
035 ! 000 !' 

Somme!1 

7125 PRINT'! ! 
040 ! 000 !' 

Repos allonge 


7130 PRINT*! 

! Repos debout ! 

050 ! 000 !' 


7135 PRINT'! 

! Tele,cine,lecture ! 

060 ! 000 !' 


7140 PRINT*! 

! Bus,métro,bavardage! 

085 ! 000 !* 


7142 PRINT*! 

! Loisirs calmes ! 

100 ! 000 !' 


7145 PRINT*! 

! Travail de bureau ! 

100 ! 000 !' 


7150 PRINT*! 

! Manger,se laver ! 

100 ! 000 !• 


7155 PRINT'! 

! Marcher en ville ! 

140 ! 000 !' 


7160 PRINT*! 

! Shopping ! 

140 ! 000 !' 


7165 PRINT'! 

! Faire le ménagé ! 

140 ! 000 !' 


7170 PRINT*! 

! Travail debout 1 ! 

220 ! 000 !' 


7175 PRINT'! 

! Sport moderee ! 

250 ! 000 !' 


7180 PRINT'! 

! Travail debout 2 ! 

350 ! 000 !' 


7185 PRINT'! 

! Sport compétition ! 

360 ! 000 !* 


7190 PRINT'! 

! Exercice puissance ! 

600 ! 000 !' 


7195 PRINT*! 

1 1 1 

! (ex:sprint...) ! 

» 1 


/zuU rKlNI 

■ 


7205 PRINT*! Les dépenses sont en cal 


ories/t2/h !' 
7210 PRINT*- 


7215 PRINTiPRINT'Pour valider le tabl 
eau appuyez sur la* 

7220 PRINT*touche : I ESPACE ].* 

7225 1=3 

7230 PL0T3,I,1:PL0T4,I,*>*:PL0T5,I,6: 
PL0T7,1,1:PL0T26,I,6:PL0T28,I,1 
7235 PL0T32,I,6:PL0T34,I,1:PL0T38,I,6 
7240 IFPEEK(#2œ)=156ANDI>3THENG0SUB7 
265:1=1-1:GOT07230 

7245 IFPEEK(#208)=180ANDI<18THEN60SUB 
7265:1=1+1:G0T07230 
7250 IFPEEK(#208)=148ANDMN(I)<990THEN 
60SUB7270:SOT07230 

7255 IFPEEK(#208)=140ANDMN(I)>000THEN 
G0SUB7275:60T07230 
7260 IFPEEK(i208)=132THEN7280 
7262 G0T0724O 

7265 PL0T3,I,6:PL0T4,I,' *:PL0T7,I,6: 
PL0T28,I,6:PL0T34,I,6:RETURN 
7270 MN(I)=MN(I)+10:PLOT35,I,* *:PL 
0T34,I,STR$(MN(I)) 

7272 RETURN 

7275 MN(I)=MN(I)-10:PLOn5,I,* *:PL 


0T34,I,STRI(MN(I)) 

7277 RETURN 

7280 F0RI=3T018:TDP=TDP+MN(I):NEXT 
7282 IFTDP<1440THENCLS:PRINT:PRINT: PR 
INTiPRINT*Journée < 24 heures*:HAIT300 
:GOT07100 

7285 IFTDP>1440THENaS:PRINT:PRINT:PR 
INT:PRINT*Journée > 24 heures*:WAIT300 
:GOT07100 

7290 CLS:INK2:PRINT:PRINTCHRI(135);* 
-> Entrez votre réponse puis appuyez* 
7292 PRINTCHRI(135);' la touche [ 

RETURN ].' 

7295 PRINTiPRINT CHRI(131);* # Quel 
est votre poids ?* 

7300 PRINTCHRI(129);* (En kg et no 
n suivi de kg)* 

7305 INPUTP 

7310 IFP<50RP>250THEN7295 
7315 PRINT:PR1NTCHR$(131);' * Quel es 
t votre taille ?' 

7320 PRINTCHRI(129);* (En cm et no 

n suivi de cm)* 

7325 INPUn:IFT<500RT>250THEN7315 
7330 SU=0.202*(P*0.425)*((T/100)'‘0.72 
5) 

7335 F0RI=3T018:JT(I)=J0(I)«(MN(I)/60 
):DT=DT+JT(I):NEXT 
7340 RP=INT(SU*DT) 

7345 CLS:PAPER0:INK3 
7350 PRINTCHRK150);CHRI( 129)-,746(6)* 
CONSOmATION PERSOWCLLE' 

7355 PRINTiPRINT' « D’apres mes calcu 
Is suivant vos ac-' 

7360 PRINT* tivites journalières vous 
devriez ab-* 

7365 PRINT* sorber environ : ’^RP;' c 
alories.* 

7370 PRINTiPRINT* * Ces calories deva 
nt etre apportées* 

7375 PRINT* en trois fois (matin,midi 
et soir).* 

7380 PRINTiPRINT' _ Pour de plus ampl 
es renseignements* 

7385 PRINT* revenez au sommaire et es 
sayez 1’ op-* 

7390 PRINT* tion 1 ou 2 (a moins , bi 
en sur que * 

7395 PRINT* vous ne l’ayez déjà fait. 

..).* 

7400 FORI=23T026:PLOT1,I,6:NEXT 
7405 PL0T2,23,* -> TAPEZ SUR:* 

7410 PL0T2,25,' - S pour revenir au s 
ommaire* 

7415 PL0T2,26,' - R pour recommencer* 
7420 GETCI:IFCI<>*r*0RC$<>*s*THENG0SU 
B291 

7425 IFCI='r*THEN7000 
7430 IFCI=*s*THEN490 ■ 
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LEUR JASMIN 


P ropriété exclusive de la société TRAN, le schéma de la carte 
contrôleur du JASMIN 2 n'est publié ici qu'à titre d'informa¬ 
tion, pour satisfaire les possesseurs de JASMIN. 


Comme le lecteur pourra le cons¬ 
tater, la carte contrôleur est orga¬ 
nisée autour d'un circuit spécial 
"prédiffusé" (Cl 6). La gestion de 
la disquette est réalisée par un 
FDC 1770 (Cl 3) de Western 
Digital, sorte de microprocesseur 
conçu spécialement pour cette 
tâche. Le prédiffusé gère les 
entrées-sorties, assure le déco¬ 
dage d'adresses et permet le pas¬ 
sage en RAM Overlay. 

Une EPROM 2716 (Cl 7) contient 
le programme de "BOOT". Pour 
bien comprendre le fonctionne¬ 
ment de l'ensemble, il sera néces¬ 
saire d'avoir de bonnes connais¬ 
sances en Assembleur et, parti¬ 
culièrement, sur la programma¬ 


tion du FDC 1770. Si la demande 
est suffisante, nous ferons un 
article sur le sujet... 

Voyons brièvement quel est le 
rôle des autres circuits. 

Pour accéder à la RA M Ove rlay, 
il faut activer le signal MAP situé 
en 1 du connecteur extension de 
rORIC. Un timing assez serré doit 
être respecté. MAP doit arriver 
80 à 100 ns avant le front mon¬ 
tant du signal d'horloge y>2. La 
largeur de MAP doit être de 
250 ns. Ce travail est confié aux 
monostables contenus dans CIO. 
Si le timing n'est pas respecté, 
l'écran est perturbé. 

Tout le monde a entendu parler 
des problèmes liés au signal 


d'horloge de l'ORIC, en géné¬ 
ral très bruité. Ce signal est remis 
en forme dans le Jasmin par C6, 
porte CMOS 4069 montée d'une 
façon un peu particulière. Cette 
simple porte a marqué, dès le 
début, l'avantage du Jasmin sur 
le Microdisc. Rappelons que ce 
dernier, couplé sur le bus, inter¬ 
dit le chargement des cassettes, 
ce qui n'est pas le cas avec le 
Jasmin. 

Les signaux d'adresse AO, Al, 
A2, A3 qui sont les plus deman¬ 
dés transitent également par une 
porte 4069, ce qui permet leur 
adaptation d'impédance. 

Grâce à ces adaptations, la carte 
Jasmin est fiable malgré les 
carences du bus d'extension. 
Quant à Cl4, multiplexeur 1 x 8, 
il gère les 8 sorties : 

— 4 sélection de lecteur (0 à 3), 

— la ligne ROM DIS, 

— le flag d'accès possible en 
RAM Overlay, 

— la sélection de face du lecteur, 

— le RESET du FDC 1770. 
Comme on peut le voir, la carte 
est conçue de manière saine, 
autour d'une électronique dont la 
technologie est éprouvée. 


COMFIACTEUR 


Thierry LEGAL 

V u la manière suivant laquelle sont codées les lignes 
Basic, il y a souvent en mémoire un grand nombre 
d'octets inutiles au bon fonctionnement du pro¬ 
gramme. C'est en particulier le cas de tous les espaces 
que l'on introduit entre les diverses instructions d'une 
ligne, ou entre leurs attributs. 


Le programme suivant se pro¬ 
pose justement de détruire tous 
ces octets. Pourtant, s'ils n'inter¬ 
viennent pas dans le fonctionne¬ 
ment propre du programme, ils 
sont quasi indispensables à sa 
mise au point ou à son édition sur 
imprimante. Aussi avons nous 
prévu de pouvoir remettre ces 
octets. On a donc ici les deux 


premières parties de la routine 
LM : Compactage et Décompac¬ 
tage. 

Nous avons utilisé la commande 
&(x) pour lancer cette routine. La 
fonction réalisée dépendra alors 
du nombre (x) fourni. Par exem¬ 
ple : PRINT &(1) effectuera un 
compactage alors que PRINT 
&(2) fera la fonction inverse. 


&(!) = COMPACTEUR 

Le principe du programme est 
assez simple. A l'aide du pointeur 
((X)), on parcourt tout le pro¬ 
gramme Basic, ligne par ligne et 
octet par octet à la recherche des 
espaces (code = 32 = $20). Cela 
se passe entre $9030 et $905A. 
La solution de facilité aurait alors 
été de supprimer tous les espa¬ 
ces que l'on rencontrait : le pro¬ 
gramme aurait alors encore fonc¬ 
tionné mais tous les messages 
entre guillemets (") et les REM 
auraient été compactés et 
seraient en grande partie incom¬ 
préhensibles. On teste donc la 
présence des guillemets ("), des 
remarques (REM) ou (') ainsi que 
celle des (DATA) qui peuvent 
contenir des chaînes de caractè¬ 
res. Lorsque l'on trouve un de ces 
quatre codes, on garde telle 
quelle la commande Basic dans 
son ensemble et on passe à la 
suivante. Si l'espace trouvé n'est 
pas à la suite d'un de ces codes, 
il est supprimé et tout le pro- 
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gramme sera décalé vers le 
"bas” de la mémoire. 
REMARQUE : Si vous effectuez 
deux fois &(1) sur le même pro¬ 
gramme, le second &(1) ne modi¬ 
fiera bien sûr plus rien. 

&{2) = DECOMPACTEUR 

Il s'agit donc ici de remettre des 
espaces dans le programme pour 
le rendre plus lisible. Cela est net¬ 
tement moins facile que la pre¬ 
mière partie. Il faut en effet savoir 
où les mettre et tenir compte 
d'un certain nombre de cas par¬ 
ticuliers. De plus, on ne peut plus 
travailler directement sur le pro¬ 
gramme. On utilise donc une rou¬ 
tine de la ROM pour transférer le 
programme en "haut" de 
mémoire (cf $906F). Les tests, 
pour savoir où rajouter les espa¬ 
ces, sont effectués dans la bou¬ 
cle $9099 à $90C2.Nous avons 
classé les octets en 5 catégories : 
1 ) N < 128 : caractères simples. 
On ne change rien. 

2) 128>N>192 ; ce sont les 
ordres Basic (de EDIT à CALL). 
On les fait suivre d'un espace. 

3) N dans l'ensemble "BUF:" : 
ensemble des codes que l'on doit 
faire seulement précéder d'un 
espace. (Dans le cas présent, il 
n'y a que (cf $90C4). 

4) N dans "BUF*" : idem avec 
ceux que l'on doit seulement faire 
suivre d'un espace. 

5) N dans "BUF*:” : ce sont les 
codes des mots-clés du Basic qui 
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doivent à la fois être suivis et pré¬ 
cédés d'un espace comme par 
exemple "STEP” ou "OR"... 

Suivant la catégorie à laquelle 
appartient l'octet considéré, on 
ajoute un espace là où il faut et 
à la condition qu'il n'y en ait pas 
déjà un ! On procède ainsi sur 
tous les octets du programme. 
REMARQUE : Sur de longs pro¬ 
grammes, ces opérations peu¬ 
vent aller jusqu'à 4 ou 5 secon¬ 
des. Soyez patient : ce n'est pas 
très long, mais dans aucun cas ne 
faites un RESET, l'algorithme de 
la routine fait que vous ne retrou¬ 
veriez pas votre programme. Cela 
est valable pour les trois options 
&(1), &(2) et &(3). 

Cette dernière option, &(3), est 
un "DEL-REM". Elle permet de 
détruire les REM d'un programme 
et donc de gagner encore de la 
place. En fait, il s'agit ici d'un 
DEL-REM sélectif. Là encore, la 
routine parcourt le programme à 
la recherche des REM (ou des 
« ' »). A chaque fois qu'il en ren¬ 
contre un, il affiche la ligne qui la 
contient et vous demande ce que 
vous voulez faire. Vous avez 
alors le choix entre trois possibi¬ 
lités (cf $91 94). 

1) D: destruction de la REM. 

G : on garde la REM. 

3) R : on la réduit. 

Cette troisième soluiton, curieuse 
à priori, est très utile. En effet, 
imaginez que vous ayez les deux 
lignes suivantes : 

100 PING :REM sous-programme 
1 

200 REM sous-programme 2. 

Si vous faites "G", elles ne 
seront pas modifiées. 

Si vous tapez "D”, la ligne 100 
deviendra : 100 PING, mais la 
ligne 200, qui ne contient rien, 
sera détruite. Cela est gênant si, 
comme cela est probable ici, l'ap¬ 
pel de sous-programme se fait 
par un GOSUB 2000. D'où l'in¬ 
térêt du choix "R" = Réduit. En 
effet, dans ce cas, on obtiendra : 
100 PING et 200 : 

La ligne 200 n'a alors pas été 
détruite mais elle ne contient plus 
qu'un octet ne jouant aucun rôle 
(ici ":"). Il n'y a plus alors de ris¬ 
que de "Undef'd Statement 
Error". Aussi, n'utilisez "D" que 


si vous êtes sûr que la ligne n'est 
pas appelée ou si elle contient 
d'autres ordres avant le REM. 
Dans le doute, utilisez "R". 
REMARQUE : ? &(0) équivaut à 
? FRE(O) 

? &(X) avec X<>0,1,2,3 - 
CLICK 

Utilisez toujours la séquence 
"? &(N)" de préférence à 
"A = &(N)". Il y a sinon des ris¬ 
ques "d'abîmer” le programme 
sur quelques octets, en particu¬ 
lier avec N = 2. 

Avec un &(1), vous pouvez 
gagner 10 à 20 % de place. Cela 
est particulièrement intéressant 
pour sauver les programes sur 
des supports limités comme les 
disquettes. Il vous suffira de faire 
"? &(2)" à chaque fois que vous 
voudrez les modifier. 

N'utilisez &(3) que lorsque votre 
programme est bien au point car 
il est toujours plus difficile de 
modifier un programme qui ne 
contient plus de REM ! 

Ceux que cela intéresse pourront 
ajouter d'autres options (bran¬ 
chement en $91 50). En particu¬ 
lier en &(4) qui permettrait de tas¬ 
ser les lignes, c'est-à-dire de les 
remplir au maximum (jusqu'à 255 
octets) pour gagner encore un 
peu de place. 

Enfin, la routine est, grâce au pro¬ 
gramme de chargement, compa¬ 
tible ORIC-1 et ATMOS. Vous 
pouvez de plus choisir votre 
adresse d'implantation ($9000 
n'est donnée qu'à titre d'exem¬ 
ple). 


0 = - = —= = = 

1 REH= 

2 REM= Coipacteur - Oeco«paoteur = 

3 REH= et Del-Re» sélectif. = 

4 RE«= 

5 REM= 

6 REH= Pour fiTMOS et ORIC-1 

7 REh= 

8 REH= LEGAL Thierry Oeceabre 85= 

9 REM= 

10 REH=============================== 

11 REH Eritree des Data de COR ' 

12 REH.-. 

20 INPUT“A0=‘;A0 :00KE O.AO HIHEH AD 
22 A0=0EEK(0) : CL5 FOR 1=0 TO 59 
24 PRINT 59-1; : AD=A0f8*I 5=0 

26 FOR J=0 TO 7:READ A#:A=yALCll'+AB) 
28 POKE AD+J,A :S=S+A NEXT READ SC 
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Animation graphique 
en 3D 


Wolfram LUTHER 

£ a qualité graphique de l'écran à haute résolution de l'ORIC met 
à la disposition de nous tous beaucoup de possibilités nouvel¬ 
les, parmi lesquelles les couleurs et la troisième dimension, 
traitées dans différents articles précédents. 


Comme nous l'a déjà montré la 
première partie de cette note, il 
surgit pourtant un grand inconvé¬ 
nient, c'est le temps de calcul 
nécessaire à l'exécution du gra¬ 
phisme 3D. C'est pourquoi, nous 
avons proposé récemment deux 
utilitaires de compression et de 
décompression de l'écran MIRES 
noir et blanc pour rendre possi¬ 
ble la création des graphiques ani¬ 
més. La première application, la 
rotation d'un cône, semblait 
pourtant très limitée. Nous avons 
laissé de côté le traitement des 
parties cachées et la répartition 
des ombres sous l'influence 
d'une source lumineuse — sujets, 
en général, difficilement aborda¬ 
bles et demandant des algorith¬ 
mes appropriés. 

Nous allons cependant reprendre 
la discussion et proposons un 
programme qui permet de visua¬ 
liser la rotation d'un corps rigide 
autour d'un axe. 

Prenons d'abord un cube, un 
parallélépipède ou un tronc de 
pyramide, chacun à six faces et 
huit sommets. Il va de soi qu'on 
peut construire des corps plus 
compliqués à l'aide de ces trois 
types standards. 

Le procédé se décompose en plu¬ 
sieurs étapes : 

— l'initialisation des paramètres, 

— les coordonnées des huits 
sommets et l'ordre des faces 
(voir figure 1 ), 

— le calcul des nouvelles coor¬ 
données après une rotation d'an¬ 
gle PH de l'axe A, 

— la destination des faces visi¬ 
bles et invisibles, 

— la projection du corps tridi¬ 
mensionnel sur le plan (l'écran) 
pour créer l'impression de pers¬ 
pective. 



— le tracé des côtés du corps. 
En intégrant les deux routines 
"COMP" et "DECOMP" propo¬ 
sées récemment, vous pouvez 
réaliser la rotation d'un parallélé¬ 
pipède en 60 écrans MIRES. 
Dans un premier temps, vous 
introduisez donc le vecteur direc¬ 
teur de l'axe A, l'ange deltaphi 
pour chaque étape et l'angle total 
phimax de rotation. Rappelons 
qu'il vous faut 360 (degrés) pour 
un tour complet. 

Le problème le plus sérieux est le 
calcul de la matrice M, indispen¬ 
sable à établir les nouvelles coor¬ 
données des huit sommets après 
une rotation de PH degrés. 
Donnons d'abord un résultat bien 
connu. Dans R^, la rotation d'axe 
OZ et d'angle PH est représentée 
par la matrice 

cos PH -sin PH 0 
Z = (sin PH cos PH 0) 

0 0 

Supposons que maintenant l'axe 
soit la droite passant par'l'origine 
de vecteur directeur A = (A(1), 
A(2), A(3)). 

Nous cherchons la matrice M de 
rotation d'angle PH et d'axe A. 
Pour cela, nous décomposons M 
en un produit de cinq matrices. 


Moyennant deux rotations d'an¬ 
gles a et B autour des axes Oxi 
et 0 x 2 respectifs, nous chan¬ 
geons de repère en transformant 
l'axe A en A' appartenant à 0x3 
(voir figure 2). 



10 0 L 0 A(1) 

X = (0 A(3)/L A(2)/L),Y = (0 1 0) 
0 -A(2)/L A(2)/L -A(1)0L 

La matrice de rotation d'axe A' 
est évidemment Z. En inversant 
les deux rotations précédentes à 
l'aide des matrices transposées 
lY et IX nous revenons au repère 
initial et déduisons la matrice 
cherchée : 


M = X*Y*Z*IY*IX 


Discutons maintenant le test sur 
les parties cachées du corps. 
Nous plaçons sur chaque face un 
repère (VA, VB, VN) (voir figure 
3), VN désignant le produit vec¬ 
toriel des deux vecteurs bord VA 
et VB. Ensuite nous calculons le 
produit scalaire PS = VO*VN où 
VO représente le vecteur reliant 
l'origine du repère à l'observa¬ 
teur. Si PS est positif, la face est 
orientée vers l'observateur et 
donc visible, autrement (PS<0) 



45 
























elle est considérée comme invi¬ 
sible. 

Nous renonçons ici à traiter en 
profondeur un algorithme de 
répartition des ombres et effets 
de lumière, quoiqu'il soit lié aux 
vecteurs VN des différentes 
faces du corps. Il faudrait une 
routine LM de remplissage selon 
la valeur de PS. Nous proposons 



seulement un sous-programme 
"OMBRES" en Basic qui peut 
être inséré dans lé programme 
principal. 

Notre méthode de projection est 
classique (voir figure 4). 

Nous plaçons l'observateur assez 
loin de l'écran (OB(2)< - 100) et 
évaluons les coordonnées du 
point P' situé dans le plan à par¬ 
tir de celles du point P dans l'es¬ 
pace (sommet du corps). 

Avant de dessiner, nous prati¬ 
quons encore un "découpage" 
(clipping). Tous les points appar¬ 
tenant à un des quatre côtés 
d'une face qui tombent hors de 
notre fenêtre graphique 0 = <U 
<U<=239, 0=<V< = 199 
sont ignorés, ils ne sont pas 
visualisés. Voici le programme 
amplement commenté : 

Si vous exécutez les routines 
"COMP" et "DECOMP" tout au 
début vous arrivez à comprimer 
60 écrans MIRES (DP = 6, PM = 
354). 


Essayez aussi les alternatives sui¬ 
vantes : 

150 DATA - 20, - 20, 1 5, 40, 
-30, 15, 20, -30, -15, -40, 
-20, -15 

170 DATA 20, 20, - 15, -40, 
30, - 1 5, - 20, 30, 1 5, 40, 20, 
15 

Parallélépipède, A = (0,5,1), 
DP = 60, PM = 360. 

150 DATA -30, -30, 20, 30, 
-20, 10, 30, -20, -10, -30, 
-30, -20 

1 70 DATA 30, 30, - 10, - 30, 
30, - 20, - 30, 30, 20, 30, 20, 
10 

Tronc de pyramide, A = (1,1,0), 
DP =30, PM = 180. 

150 DATA 0, 0, 0, 50, 0, 0, 20, 
0, - 30, - 30, 0, - 30 
170 DATA 10, 50, -40, -40, 
50, -40, 10, 50. 10, 60, 50, 10 
Polyèdre, A = (0,1,1), DP =18, 
PM = 360. 


PROGRAMME "CUBE" 

10 REM Rotf.tion d'i.i.n corPs r i9ide <cu.b€ j. Par^i.l lélep 

20 REM ou, tronc de pyr^.r>iide > coniPren3.nt six faces et huit sonuoets 

30 REM autour d'un axe fixe Passant Par l'origine 

40 DIM X0(8.'3>.- X(.S,3>, UC4>, V(4): REM Coordonnées des coins 

50 DIM OBC3>= REM Coordonnées de l'observateur 

60 DIM R<3>= REM Vecteur directeur de l'axe de rotation 

70 DIM M<3..3>= REM Matrice de rotation 

80 DIM C<8.'4>j.FC.<6'.>= REM Les quatre angles des six faces.- draPeau face cachée 

50 DIM VRC 3) .VB<3)/-/N(3)' REM rePère sur une face du corps 

100 DIM Vü''.3>: REM Vecteur reliant une face >. l'observateur 

110 REM DRTfi = Coordonnées des huit sornrriets du corps dans l'ordre 

12^5 FOR C=1 TÜ 3= RERD X0<C.2>> X0<C.3> 

130 HEXT 

140 REM ExeroPle Parallélépipède rectangle aux arêtes 60.- 40.- 30 


150 

DRTR -30. -20. 15. 30. 

-20. 

15. 

30. -20. 

-15. 

-30. -20. -15 

160 

REM Les quatre angles 

de l a 

f .ace 

Ho 1 



170 

DRTR 30. 20. -15. -30. 

20. ■ 

-15. 

—30. 20. 

15. 

30. 20. 15 

180 

REM Les angles 5.6.7.8 

de l a 

face 

opposée 

Ho 4. 

ici X0(C >=-X0< C-4 > 


190 REM Dans notre cas les sororiiets sont symétriques 

200 FOR F=1 TO 6- REM Six faces 

210 FOR B=1 TO 4= REM Quatre bords <côtés> 

220 RERD C<F,B> 

230 HEXT B 
240 HEXT F 

2*^0 DRTR 1^2/3,4: REM Huméros des angles de la Première face. etc. 

260 DRTR 7.1.4.6 
270 DRTR 1.7,.8.2 
280 DRTR 3.7.6.5 
290 DRTR 2.3.5.3 
300 DRTR 3.5.6.4 

310 REM Les faces 1.4 et 2.5 et 3.6 sont oPPosées l'une I. l'autre 

320 0E:< 1 >=0 = 0B< 3 >=0 = CLS ^ PR I HT = PR I HT = PR I HT = PR I HT 

330 PRIHT" Position de l'observ/ateur !OBC2>!=250 <>100>"^ OB<2>=-250 

340 IHPUT" Vecteur RO). R<2>. R<3) de l'axe de rotation = RC 1 ). R<2>. RO) 
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350 f{L=ft(. 1 ymf. 1 )+R( 2 )*flf 2 >+fl< 3 3 ) RL=0 THEN PING = GOTO 340 

360 FOR N=1 TO 3= R< H>=R< N>/SQR<RL) = NEXT = REM Vecteur nortné^ 

370 INPUT " Rin9le de rotatiom delt^.Phi-- "OP 

380 REM DP Pas de travail 

390 IF DP<=0 THEH PING= GOTO 370 

400 INPUT " Phimax = nombre de Pas*deltaPhi<<=360)' % PM 

410 IF PM<DP THEN PING' GOTO 400 

420 PH=0= CO=l= S 1=0= REM cos<PH). sin(PH) 

430 CP=COS<DP*FI/lS0) = SP=SIN<DP:t:PI.''180>= POKE 26..96 

435 REM *******:*::r;t:.l:****t:t:*»**»t*:*;*:*:*:i**:*^:****:»::*:**;*:*:*:****:t::t::*:*:C**:»:l=:****:t:***:*** 
440 REM Matrice M<3^3) de rotation , coordonnées X<C) = M t X0<C)/ C=18 
450 REM M=X*Y:«:24:IX:*:IY, L=3QR<r, RC 2 ):*:R< 2 )+R< 3 ):*:R( 3 ) > 

460 REM X Matrice de rotation autour de l'axe OX.. an9le cosCcx >=RC3>xL 

470 REM Y Matrice de rotation autour de l'axe OY^ an9le cosC^)=L 

480 REM Z Matrice de rotation autour de l'axe 02^ an9le cosCPH) 

490 REM IX^ lY matrices transposées Cinverses) 

500 RB=R<1 )*RC 2 ) = RC=R<1)*fiC 3) = BC=R< 2)*flC 3) 

510 RR=flC 1 )*flC 1 ) = BB=RC 2 nw.. 2 ) = CC=R< 3 )*RC 3 ) 

520 MC 1.1 )=RR+C0-4:C 1 -RR ) = MC 22 )=BB+C0^:C 1 -BB ) = MC 3,3 )=CC+C0*C 1 -CC ) 

530 CK=1-CO = MC 1,2 )=RB*CK-RC 3)*SI= MC 1,3)=RC*CK+RC 2)*SI= MC 2,3 )=BC*CK-RC1)tSI 

540 MC 2.. 1 )=MC 1,2 )+2*flC 3 ):i:31 = MC 3 .• 1 )=MC 1,3 )-2*RC 2 )*31 = MC 3,2 )=MC 2,3 )+2*RC. 1 )*S I 

550 FOR C=1 TO 8= REM Huit coins 

560 FOR N=1 TO 3 

570 XCC.N)=0 

580 FOR 8=1 TO 3 

590 XCC.N)=XCC,N) + MC N, S )*X0C C. S ) 

600 NEXT 8= NEXT N= NEXT C 

610 REM Coordonnées aP rés rotation ^ ici XC C ^ N)=-XC C+-4 ^ N ) 

620 REM :»:*:*:4:***4:J:**:i:*:*:*1=:*‘4.T::*::C*Y*****:*::*::*:T:4::t:******:r*******:*:*4:**:r**4c***:*:*:*:*:*:*** 

630 REM Faces cachées 

640 FOR F=1 TO 6= REM 8ix faces 

650 FDCF)=0: REM DraPeau face cachée 

660 FOR N=1 TO 3 

670 VflC N )=XC CC F.. l ), N )-XC CC F. 2 ). N ) 

630 VBC N )=XC CC F, 3 ), N )-XC CC F, 2 ), N ) 

690 NEXT H 

700 REM VR^ VB rePére sur la face F dans l'an9le No 2 
710 VNC 1 )=VRC 2 )*VBC 3 )-VflC 3 )ÏVBC 2 ) 

720 VNC 2 )=VRC 3 )*VBC 1 )-VRC 1 ):t:VBC 3 ) 

730 VNC 3 )=VRC 1 )T:VBC 2 )-VRC 2 )TVBC 1 ) 

740 REM Produit vectoriel Perpendiculaire au Plan des deux vecteurs VR et VB 

750 FOR N=1 TO 3 

760 VOC N )=0BC N )-XC CC F.. 2 ).. N ) 

770 NEXT N 

780 REM Vecteur reliant l'an9le No 2 de la face F à l'observateur 
790 PS=0= REM Produit scalaire 
800 FOR N=1 TO 3 
310 PS=PS+V0C N )T:VNC N ) 

820 NEXT 

830 IF PS.>0 THEN FDCF)=1= REM Face visible^ ici face F+-3 invisible 
840 NEXT F 

860 REM Projection 
870 FOR C=1 TO 8 

380 PR=RBSC OBC 2)/C XC C,2)-0BC 2)) ) 

890 XC C, 1 )=PR*XC C, 1 ) = XC C, 2 )=PR*XC C, 3 ) 

900 NEXT C 

910 REM :t:*******»******:*:*:*;**.t*t*:»:****4::*:**T****:*:*.tt:»:*:t:.t 

920 REM Co-ord-onnées des Quatre an9les de la face F sur l'écran 

930 HIRES=PRINT" Rn9le de rotation= "PH" de9rés" 

940 FOR F=1 TO 6 

950 IF FDCF)=0 THEN 1110= REM Face cachée 
960 FOR B=1 TO 4= REM Quatre côtés 

•970 UC B )= INTC XC CC F. B ).. 1 )+120 ) = VC B )= INTC -XC CC F.. B ), 2 )+100 ) 

980 REM CliPPin9.. en dehors de l'. e'cran? 

990 IF IJCBXO THEN UC B )=0 
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iei00 IF IJ<B)>239 THEN IJ<B>=233 

1010 IF V(B><0 THEN \KB:>=Q 

1020 IF V<B)>199 THEN V<B>=1?3 

1030 NEXT B 

1040 REM 

1050 REM Dessin 

1060 CURSET lja>,V<l).. 1 

1070 FOR B=1 TO 3 

1030 DRRN IJC B+1 >-IJC B >, V< B+1 >-\K B >, 1 
1090 NEXT B 

1100 DRfiW IJ< 1 >-lJ< 4 :>,\K 1 >-V< 4 >, 1 
1110 NEXT F 

1130 PH=PH+DP 

1140 CN=COTCP-SI ♦:SP = SI=SI*CF+CO*SP = CO=Cri: REM Calcul cos<PH>. sin-rPH? 

1150 IF PH<=PM THEN 520 

1160 PR INT" Rotation cor.tPlète - Fin" 

1170 REM Lit. Nei.iman-SProul 1 ■ PrinciPles of Interactive Computer Graphics et 
1130 REM OR IC OUNER 7 0984 P. 29 


Pour tous ceux 4ui veulent Jouer sur les effets de lumi^re^ 
voici comment modifier le Pro9ra.mme Principal. 

Insérez les liÇines! 


315 FOR N 1=0 TO 9= REHD V- PT<NI J=V•• NEXT = REM Data PRTTERN 

316 DRTR Q/ 16/ 68/ 146/ 85/ 109/ 187/ 239/ 255/ 255 

735 VN=SG!R< VH< 1 )*VN< 1 >+VH'; 2 ):*:VN'r. 2 J+VNC 3 >4VN<; 3 > > 

765 VO=SQR< VO-:; 1 >:tVO< 1 >+V0< 2 VOC 2 i+VO< 3 3 > ) 


790 FB<. F'>=&■■ REM Produit scalaire 
800 FOR N=1 TO 3 
810 PS< F )=PS': F )+V0<: N ):*;VNc: N ) 

820 NEXT 

830 IF PSC F >>0 THEN FDC F >= 1 = PSC F >=PSC F >/C VN:*:VO ) 
840 NEXT F 


1105 GOSUB 1310 

et ajoutez le sousProSramme OMBRES= 


1300 REM Répartition des^ ombres 

1310 IF RBSC UC 4 >-UC1>)>=RBSC UC 2 >-UC1)> THEN 1370 
1320 U=UC1>=V=VC1> 

1330 FOR B=1 TO 3 

1340 UC B >=UC B+1J :VC B )=VC B+1 ) 

1350 NEXT 

1360 UC 4>=U = VC4>=V 
1370 PS= INTC PSC F 10 > 

1380 PRTTERN PTC PS) 

1390 ST=SGNC UC 4 >-UC1)> 

1400 FOR U=UC1> TO UC4>-ST STEP ST;tC 1 + INTC C 9-PS >x3 > ) 
1410 UB=C U-UC 1 > >xC UC 4 )-UC 1 > ) 

1420 Vl=UB:tC VC 4 )-VC 1 ) ) + VC 1 ) 

1430 U2=UB*C UC 3 )-UC 2 > ) + UC 2) 

1440 V2=UBf:C VC 3 )-VC 2 ;> > + VC 2 > 

1450 CURSET U/V1/3 = DRRUU2-U/V2-V1/1 
1460 NEXT U 

1470 PRTTERN255 = RETURN 
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PETITES ANNONCES 


La plaça réaarvéa aux patitaa annonças ast 
Hmitéa. En consiquanca. callaa-ci passant 
dans Isur ordra d'arrtvéa. Par contra, las pati- 
tas annonças farfaluas sont systématiqua- 
mant rajatéas... Da mAnta, comma II ast pau 
probabla qu'il axista das "généraux dona- 
taurs" dp matérials ou da logiclals, las patl- 
Iss annonças faisant appal é cas phllantro- 
pas na saront Inséréas qua si la plaça libra 
la parmat. 

Saront rafuséas toutaa las annonças visant 
é vandra ou échangar das listas ou copias da 
logldais non garantis "d'oiigins", ainsi qua 
touts annonça Incitant au pirataga. 

En conséquanca. réfléchisssz bisn avant 
d'snvoysr vos tsxtas. 

Las pstKss annonças doivant irTX>érativomant 
nous parvanir sur la grilla (découpés ou pho¬ 
tocopiés), la taxta étant rédigé A raison d'un 
caractérs par casa. 

Enfin, touts annonça non accompagnés da 
timbras ns sors pas Insérés. 

Vends THEORIC n" 1 è 19, modulateur couleur 
PHS 60 magnéto spécial - cordon impr + Edltext 
(originel. Tél.: 32.49.36.48. 


Vend logiciels ATMOS sur cassettes : Renuméro- 
tation activée, Util 1 et 2 (touches programmées 
+ diverses fonctionsi * notices : 100 F. Morse 
émission-réception sans interface : 100 F. SSTV 
émission-f réception sans interface + notice : 
100 F. QTH Locator : 100 F. Tél.: 54.80.61.94. 

Je lape tous vos listings. 10 cts la ligne -i- 15 F 
pour cassette et envoi. M. RAGOT, 7 rue Louise 
Thuliez, 75019 PARIS. 

Vends ORIC-1 ROM ATMOS + 11 cassettes de 
jeux + revues, manuel, transfo : 1000 F. Régis 
BRYMAN, tél.: 42.03 61.34. 

Vends ATMOS 48 K + péritel acc. P/télé N/B 
+ K7 + magnéto + livres : 1500 F. Tél.: 
42.72.20.76 ou 48.58.10.74 le soir. Régine 
BUSALB. 


Vends ATMOS -f 2 drives -f imp. + nombreux 
programmes : 3550 F ou séparés. 3, bd. A. Briand, 
Perpignan, tél.: 68.22.66.18 après 19h. 

Vends imprimante Smith Corona Fastext 80, Cen¬ 
tronics, 80 c/s, graphique, tbe : 1500 F. J.C. 
ROHART, 11 rue de la Marine, 59140 DUNKER¬ 
QUE, tél.: 28.59.15.04 après 20h. 

Cherche interface TVS ORIC-1 ATMOS, prog. 
éduc. J.P. PENIN. 39 rue J. Boute. 62.840 LAVEN- 
TIE. 


Vends ATMOS + cordon + adaptateur TV (N/BI 
-f Péritel -f jeux -f livre : 1600 F. Dominique 
THEATRE, 13 rue de Dunkerque, 02100 ST, 
QUENTIN. 


Cherche programmes LM Plus, Formule 1 et utili¬ 
sateur ORIC'ATMOS dans ms région. Sylvain 
OZIEL, La Terre Rouge, 85110 STE CECILE. 

Vends programmes K7. dise. Jasmin ATMOS. 16 
E/S : 230 F. Christophe TAYO. tél.: 80.36,96.16 
après 19h. 

Vends Seikosha GP lOOA : 1250 F. Microdisc -f 
Sedoric sous garantie 101/861 état neuf, prix à 
débattre. Tél.: 69.21.29.66 après 18h. 

Groupe Oric Microfer Rennes ouvre club initiation 
Basic et machine, interfaces, bibliothèque, logithè¬ 
que. Tél.; 99.57.23.47 ou 99.83.27.66 après ISh. 

Cherche contacts sur ATMOS pour échanges 
divers. J-Michel DARGERE, 45 Bd Branly, 60100 
NOGENT SUR OISE, tél.: 44.71.49.07. 

Achète THEORIC 1, 2, 3 20 F pièce -f 20 frais, 
sinon en prêt pour photocopie 60 F, retour 48 heu¬ 
res. M. RAYMOND, 46 av. du Chèteau, 94300 
VINCENNES. 

Cause vente ATMOS, vends logiciels Vortex, trai¬ 
tement de texte : 130 F. Hyperspace 4 : 50 F. For¬ 
mule 1 : 50 F. Serge au 77.23.37.45. 

Vends ORIC-1 48 K -r Jamsin -f 2 joysticks av. 
interf. -i- 10 K7 orig. (CAO. FORTH, ASS, jeuxl -i- 
8 dise (ROM ATMOS. etc) 5 livres + THEORIC 
1 è 19. Faire offre. Tèf.: (Il 47.90.13.71 le soir. 


Vends THEORIC n“ 3. 4, 5. 6 : 50 F pièce. Appe¬ 
ler le 42 61.64.24 è partir de 17h30. Demander 
José. 

Vends Inter, joystick -f Quickshot 1 : 150 F -i- 
céble PAL : 50 F. MCP 40 -t- 2 rouleaux (8/857 : 
550 F. Oivars logiciels : moins de 100 F. Nico, tél.: 
50.71.50.43. 

Vends THEORIC 1 à 18 : 300 F. 5 dise 3 " ; 100 F. 
24 programmes : 100 F. 2 livres électro. Assemb. : 
100 F. Magnéto ; 250 F. Doc Tél : 56.26.00.00. 

Vends ORIC-1 -f ATMOS -i- Microdisk -i- magnéto 
+ int. -f imp, GP 50 + 400 softs -f 100 livres -t- 
doc :6000 F, Tél.: (1143 46.91.12 Philippe BRO 
CARD. 

Vends ORIC ATMOS -f Microdisc avec program¬ 
mes : 1800 F. Tél.: (1) 47 41.67.13 Jean BAR 
BIER. 

Vends 8 originaux ATMOS. Hobbit, Pinball. Saga, 
Origraph, Delta, Doggy. Businessman. Editeur 
musical, total : 500 F. Tél.: 70.31.18.43. 

Vends ATMOS * ROM ORIC-1 -f MCP 40 -f 
magnéto -f 100 programmes -f interf prog -i- joy¬ 
stick -f synthé vocal -f 22 revues -f 4 livres : 
3000 F Tél : 99.98 00.63. 

Vends ROM ORIC-1 ou ATMOS : 100 F. Tél.: 
99 98.00 63. 

Vends ATMOS 48 K, magnéto K7, 6 livres. ) 0 ux 
IZorgon, Aigle d'OrI, K7. jeux tepés : 1300 F. Tél.; 
54 74.20.69 

Vends ATMOS 2 ROM -f Jasmin -i- MCP 40 -f 
150 jeux -t- prog. Eprom : 2500 F. M GARONNAT, 
tél.: 47.73.62.18 

Vends ATMOS -i- Jasmin -t- monit. vert + 4 dis¬ 
quettes + 3 livres + revues : 3000 F. Poss. vente 
séparée. Tél.: 21.20.19.45. 

Vends ORIC-ATMOS 48 K -r- monit. coul. -i- Gra- 
phiscop -i- imprim. MCP 40 + magnéto K7 -f livres 
+ K7 : 3500 F. Tél.: 42.83.22.08 aprè 21h ou 
69.20.88.54 poste 6810 IHBI. 


iÀNNONCÉZ-VOÜS! 

, les petites annonces et les messages 



Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan, 35170 BRUZ 
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DURANT CINQ JOURS 

3 EXPOSITIONS 
EXCEPTIONNELLES 

PORTE DE VERSAILLES 

19 au 23 octobre 1986 

PALAIS DES EXPOSITIONS - HALL 2/2 



18 000 

VISITEURS - PRO 
ATTENDUS 
SOYEZ PRESENTS! 





7' SALON INTERNATIONAL 
DES€QUIPEIVIENTS DISCOTHEQUE 


LIEUX DE SPECTACLES S DE LDISIRS 

Discothèques - D'Jockeys 
Lighl jockey • Vidéo jockey 
Techniciens son - lumière - images 
Décorateurs - Architectes 
Revendeurs et installateurs 
Importateurs et distributeurs 
Artistes et maisons de disques 
Presse spécialisée 


18 000 visiteurs PROI Soyez présents! 



4* SALON INTERNATIONAL 
DES EQUIPEMENTS RADIOS - TV 

RADIOS - TV - ANIMATIONS & LOISIRS 
CÂBLE-SATELLITES-BROADCAST 

Animateurs radios et TV 
Responsables et techniciens radio 
Responsables projets télévision 
Concepteurs satellites - câbles - broadcast 
Installateurs BF - HF 
Importateurs et distributeurs 
Artistes et maisons de disques 
Presse spécialisée 


18 000 visiteurs PRO! Soyez présents! 


3 EXPOSITIONS DIFFERENTES 

• 1 MÊME LIEU 

• 1 MÊME DATE 

19 AU 23 OCTOBRE 1986 


Hn 



1*' SALON INTERNATIONAL 
DES EQUIPEMENTS STUDIOS PRIVES 

STUDIOS DE PRODUCTIONS 
- PERIPHERIQUES - CONSOLE» 

- ENREGISTREURS - INSTRUMENTS ET ACCESSOIRES 

• Consoles - Enregistreurs 

• Périphériques - Instruments 

• Tous systèmes - Midi & S.M P.T E. 

• Concepteurs et réalisateurs artistiques 

• Arrangeurs et concepteurs techniques 

• Presse spécialisée 

• Distributeurs et fabricants 

• Importateurs 

• Agencements acoustiques 

• Accessoires 


18 000 visiteurs PRO ! Soyez présents ! 


Renseignements pour exposer ou 
demandes de cartes d'entrée valables pour les 3 expositions à 
TRANS-ACTION ■ PRO - IMAGES & SON 
35 RUE VICTOR-HUGO 
93300 LEVAI LOIS - TFLU) -t? 70 30 00 


ENTREES & VISITES 
RESERVEES AUX PROFESSIONNELS 




































ENHN DISPONIBLE ! 

Nous vous l'annoncions depuis longtemps 
Vous l'attendiez impatiemment. 



ATTENTION ! 

Les abonnés à THEORIC 
recevront une offre spéciale 
à prix très réduit... 


Prix : 151 F + 9 F de port. 






LE LIVRE 
QUE TOUT 
PROGRAMMEUR 
AVANCE 

DOIT POSSEDER 




35170 BRUZ 


